Select Code to Download

my $s = "qwe";
croak "w is bad" if $s =~ /w/;   # croak if the string contains a w
# OR, faster:
croak "w is bad" if index($s,'w') >= 0;