$ perl -Mstrict -Mwarnings -E '
    my $match = "AZ";
    my @lines = qw{AZ SX AZ DC};
    my @keepers = grep { /$match/ } @lines;
    say "@keepers";
'
AZ AZ