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