Select Code to Download

#! perl
use strict;
...

my $count;
print 'Match ', ++$count, ": '$_'\n" foreach @matches;

Match 1: 'Second lineThird line'
Match 2: 'Fourth lineFifth line'