in reply to Perl one liner

No, you'll have to write it :)

In Section Seekers of Perl Wisdom