in reply to String comparision expression

I think what you want is:

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

Perl is environmentally friendly - it saves trees