Help for this page

Select Code to Download


  1. or download this
    $str =~ s/((?<!bar)\S*)foo(\S*(?!qux))/${1}123${2}/gx;

print "$str\n";
  2. or download this
    bl123 and barthis123thatqux and barso123quxhim and123som 123