$ perl -le '$out = "+44"; $in=quotemeta $out; $out =~ s/$in//; print "Result: |$in|$out|\n";' Result: |\+44||