starting collection of useful perl oneliner