perl fap oneliner.