Trying this myself, it returns an error:

    s2p: expression #1: extra characters after command (d)

Thankfully, I've never had the job of porting a sed script to Perl, so I'm not exactly sure what that's all about. The docs mention this error, but don't explain what it means,

http://perldoc.perl.org/s2p.html