my $rx = qr/^@{[shift @ARGV]}$/;
my @match = grep /$rx/, <>;