exit if ( $mytext =~ /[';*]/ );