Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my $example = "FOO CO COM BAR MOC SEC";
$example =~ s/($searchpat)/$replace{$1}/g;
print "$example\n";
  2. or download this
    FOO MOC SEC BAR COM COM
  3. or download this
    my $example = "MOC.COMPUTER.COM.FOO / SEC.SECT / CO";
$example =~ s/\b($searchpat)\b/$replace{$1}/g;
print "$example\n";
  4. or download this
    COM.COMPUTER.SEC.FOO / COM.SECT / MOC