Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
       while $string =~ $rxPatt;
    print qq{Modified: $string\n\n};
}

Select or download this

Original: KHI0339B__P_H_Vita_Korangi_Ind_A
Modified: KHI0339B__Vita_Korangi_Ind_A
...
Original: HGW6120A__S_Popalzai_Cross_A
Modified: HGW6120A__Popalzai_Cross_A