Select Code to Download

use strict;
use warnings;
...
while (defined (my $line = <$inA>)) {
    print "Found '$1' in line $.:\n   $line" if $line =~ $match;
}

Found 'is a' in line 1:
   This is a boy.
...
   This apple is big.
Found 'small' in line 6:
   That orange is small.