Select Code to Download

while($string=~ m/reg(ex)/)
{
    $string=~ s/$1/ister/;
}

my $string = "Sometimes there are extra effects you didn't foresee whe
+n using a regex.";

...

print $string;

Sometimes there are istertra effects you didn't foresee when using a r
+egister.