Select Code to Download

#!/usr/bin/perl
use strict; 

...

print "$_\n" foreach @matches;
print "$string\n";