Select Code to Download

use Data::Dumper;
my %found;
...
      team/hello.cpp  2.1    NONE
      Clear/thing.pl  NONE   1.2.34 
      etc etc

$VAR1 = {
          'Clear/thing.pl' => [
...
                              '1.3.4.5'
                            ]
        };

if ( $var =~ m{$pattern}g ) {

if ( (@matches = $var =~ m{$pattern}g ) > 0) {

$var="Files Checked IN: 
      test/abc.txt    1.23   1.3.4.5 
...
if ( ( @matches = $var =~ m{$pattern}g ) >0 ) {
    print join('|',@matches),$/;
}