What is your question?

Where does your attempt fail for you?

Did you mean to convert the sed invocation to Perl? See s2p maybe for a rough draft.