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