foreach (@valar1)     
        { 
        my ($ver2) = $_ =~ m/(v09.10-[a-z]\d{3})/;
        print "$ver2\n";
        last;
        }