unless ($input =~ /badinput/) { print $input; } #### print $input unless $input =~ /badinput/; #### use 5.010; given ($input) { print unless /badinput/; }
## print $input unless $input =~ /badinput/; ##
## use 5.010; given ($input) { print unless /badinput/; }