use 5.010;

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