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