I often use it for one-liners. See perlrun for an example involving (GNU) find. The other example is somewhat broken, unfortunately.

Another example: print second column of file if first starts with an `X'...

cgn_perl -lane 'print $F[1] if $F[0] =~ /^X/'
[download]

Well, typing an extra \n isn't that bad, but...