Help for this page
m/^ENG$/i; m/^AVN$/i; m/^TRAN$/i ...etc
my %matches = ( ENG => 'EN', AVN => 'AV', ... } else { $row[3] = 'PU'; }