Select Code to Download

my $mentioned = 0;
FILE: for my $file ( @files ) {
...
  }
}
return $mentioned;

my $mentioned = 0;
FILE: for my $file ( @files ) {
...
    /Joe Bloggs/ and ++$$mentioned and last FILE;
  }
}