I think his intention is to write it in Perl. After all, he's asking "this is what I do in sed, how do I translate it to perl".