$re =~ s/^m//;
$re =~ s/^.//;
$re =~ s/.$/;
$string =~ $re;