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