this worked

my $match = "AZ";
my $content = $mech->content; 
my @lines = split /^/, $content;
my @keepers = grep {/\Q$match\E/}  @lines;
print @keepers;
[download]