s/sed/perl/g