That is a reasonable attempt.

Your error is that you're trying to apply the match to the whole array of lines at once, instead of to each line individually. Try this as a correction to your code:

foreach my $line (@array) { 
    if($line =~/^AD/){
        print " $line";
    }
}
[download]