Help for this page

Select Code to Download


  1. or download this
    $substitute = qq|s~$sv$ch$ww$searchQuery$ww$ch$ev~$replacement~g$in;|;
$line =~ $substitute;
  2. or download this
    sub processReplacements {
my $regexM = shift @_;    #TERM(S) TO MATCH
my $regexR = shift @_;    #REPLACEMENT TERM
...
return @changed;
    
} # END SUB processReplacements