You may wish to try s2p, the sed to perl script, to get an idea of how to translate. Also check out perlrun for a number of useful runtime switches that make creating one liners much easier.