Select Code to Download

unless ($input =~ /badinput/) {
    print $input;
}

print $input unless $input =~ /badinput/;

use 5.010;

given ($input) {
    print unless /badinput/;
}