in reply to String comparision expression

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

[download]

In Section Seekers of Perl Wisdom