better perl oneliner