Help for this page

Select Code to Download


  1. or download this
    $str = "Match 9 the 1 last 6 digit 2 blah";
$str =~ /.*\d/;    print "[$`] [$&] [$']\n";
$str =~ /.*\K\d/;  print "[$`] [$&] [$']\n";
__END__
[] [Match 9 the 1 last 6 digit 2] [ blah]
[Match 9 the 1 last 6 digit ] [2] [ blah]
  2. or download this
    # you go from this:
s/(saveme)deleteme/$1/;

# to this:
s/saveme\Kdeleteme//;