Help for this page

Select Code to Download


  1. or download this
    my $file = join('', <>);

foreach (keys %replace)
{
     $file =~ s/$_/$replace{$_}/g;
}
  2. or download this
    $file =~ s/(iapw_..)/$replace($_}/g;