if (/^([^_]{2}_[^_]+)_/) {
        print $1;
    }
 
##</code><code>##

for(@str) {
             my $temp;
             if (/^([^_]{2}_[^_]+)_/) {
               $temp=$1;
               print $temp."\n";  
	     } else {
	       ($temp)=$_=~/^([a-z0-9]+)\_/xi;
	       print $temp."\n"; 
	    }
  }