c:\@Work\Perl\monks\lewars>perl -wMstrict -le "use Data::Dump qw(dd); ;; my $xlate_file = 'lookup.dat'; open my $fh_xlate, '<', $xlate_file or die qq{opening '$xlate_file': $!}; ;; my %xlate = map { m{ \A (\S+) \s+ (.+?) \s+ \z }xms } <$fh_xlate> ; dd \%xlate; close $fh_xlate or die qq{closing '$xlate_file': $!}; ;; my ($rx_ref) = map qr{ \b (?: $_) \b }xms, join ' | ', map quotemeta, reverse sort keys %xlate ; print $rx_ref; ;; my $master_file = 'master.dat'; open my $fh_master, '<', $master_file or die qq{opening '$master_file': $!}; ;; my $master = do { local $/; <$fh_master> }; close $fh_master or die qq{closing '$master_file': $!}; ;; $master =~ s{ ($rx_ref) }{$xlate{$1}}xmsg; print qq{[[$master]]}; " { Ref00004 => "https://dealerportal4.xx.com/siteminderagent/forms/xx.fcc;ACS=0", Ref00005 => "https://sso.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0", Ref00006 => "https://secure3.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0", Ref00007 => "https:///siteminderagent/cert/smgetcred.scc?cert", Ref00008 => "https://secure4.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0", Ref00009 => "https://vbos-uat.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0", } (?msx-i: \b (?: Ref00009 | Ref00008 | Ref00007 | Ref00006 | Ref00005 | Ref00004) \b ) [[ false TCP portal auth scheme 5 false https://sso.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0 ]]