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