I spent much of my career working primarily in Perl. Now I use it when messing around with older codebases, but not for new work. However, I still use it pretty often for one-liners because of these neat features. For instance:

    perl -E 'say for grep {/o/} @ARGV' one two three