in reply to Perl One Liner Regular Expressions

Show us your code :)