You do not need given, for/foreach is enough and works even in ancient perls.

for ($input) {
    print unless /badinput/;
}
[download]