Select Code to Download

sub find_hash_core {
  my $dir = './';
...
    if ( m/1234yourhashvalue/ ) {
      print "found hash";
}

my @files = grep { -f $_ && m/1234yourhashvalue/ } readdir $dirh;

chdir $dir;
my @files = glob( "*.1234yourhashvalue" );

my @files = qx{ find $dir -maxdepth 1 -type f -name "*.1234yourhashval
+ue" };