add perl oneliner