if(/ok .*$/) {
if(m/a good match/( {
$string =~ s/[a-f]//g; # but print this line
( $string ) = ( $string =~ /(show this)/));
/but show\/this, too/