#!/usr/bin/perl
use strict;

my $result;
my $komp_dir = "/Users/mydirectory/Desktop/BioinfDev/SequenceAssemblyProject/KOMP/";

opendir(DIR, "$komp_dir");
my @FILES= readdir(DIR);
close DIR;

foreach my $file (@FILES) {
     if (-d "$komp_dir/$file") {
          $result = $file;
          print "$result\n";
     }  
}

##</code><code>##

#!/usr/bin/perl
use strict;

my $result;
my $komp_dir = "/Users/mydirectory/Desktop/BioinfDev/SequenceAssemblyProject/KOMP/";

opendir(DIR, "$komp_dir");
my @FILES= readdir(DIR);
close DIR;

foreach my $file (@FILES) {
     if (-d "$komp_dir/$file" && $file =~ /\d+_\w+/) {
          $result = $file;
          print "$result\n";
     }
}

##</code><code>##

#!/usr/bin/perl
use strict;

my $result;
my $komp_dir = "/Users/mydirectory/Desktop/BioinfDev/SequenceAssemblyProject/KOMP/";

opendir(DIR, "$komp_dir");
my @FILES= readdir(DIR);
close DIR;

foreach my $file (@FILES) {
     if (-d "$komp_dir/$file" && $file =~ /(\d+)_\w+/) {
          $result = $1;
          print "$result\n";
     }
}