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

##</code><code>##

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

##</code><code>##

use 5.010;

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