Select Code to Download

use strict;
use warnings;
...
..Bxys
xxAx
=cut

#ok, with a weird example of $1
@result = grep{ print "$1 $_\n" if /^..(A|B)./;
...

# grep {} executes the code within the brackets and passes the input
# to @result depending upon the true/false value of the last statement
+.