if ($input eq $matching[0..2]) {die "bastard\n"};