#!/usr/bin/perl
use strict;

my $komp_dir ='/Users/mydirectory/Desktop/BioinfDev/SequenceAssemblyProject/KOMP/';
my @komp_dir_content = glob("$komp_dir/*");
my $k_dir;

foreach $k_dir(@komp_dir_content) {
	if (-d $k_dir){
		$k_dir =~ s(.*/)();
		next if ( $k_dir !~ /^\d+_/); 
		$k_dir =~ s(_.*)();
		print "$k_dir\n";
		next;
	}
}