Select Code to Download

#!/usr/bin/perl 
use strict;
...
    print "match : $_\n";
}

no match : aaa_fgjkghd11__hfksdh11__0000
no match : aaa_fgjkghd11_hfksdh11__0000
...
no match : aaa_fgjk__ghd11_hfksdh1_0000
no match : aa_fgjk__ghd11_hfksdh1_a000
   match : aaa_fgjk_ghd_11_hfksdh1_0000