Select Code to Download

use strict;
use warnings;
...
NORTH_IPV=IDL,NORTHERN||VIDL,NORTH||IDL,NORTH
SOUTH_IPV=IDL,SOUTHERN||CIDL,SOUTH||IDL,SOUTH

'AFGHD_NORTH': No match
'NORTHERN_IIDID_IPV123': No match
...
'SOUTHERN_IND_IPV': No match
'IDL_NORTH_IPV' matches key: NORTH_IPV
'IDL_ABDGJF' matches key: MANAGEMENT

$VAR1 = {
          '1' => {
...
                   'NORTH_IPV' => '(?:(?=.*\\bIDL\\b)(?=.*\\bNORTHERN\
+\b))|(?:(?=.*\\bVIDL\\b)(?=.*\\bNORTH\\b))|(?:(?=.*\\bIDL\\b)(?=.*\\b
+NORTH\\b))'
                 }
        };