Help for this page

Select Code to Download


  1. or download this
    $_->[0] = qr/\b(\Q$_->[0]\E)b/ for @corrections_to_make;
  2. or download this
    for my $crummy_good_ar (@corrections_to_make) {
  my ($crummy, $good) = @$crummy_good_ar;
  $file_in_string_form =~ s/$crummy/$good/ig;
}
  3. or download this
    my $rx = qr/abc/;
if ($str =~ /^($rx)$/) { ... }