INPUT LINE:\root\edit\perl\scripts\scripths\sec\inc\script_auth_pap.h-113115;perforcePLF.txt;//programfiles/documents/data/lookup/script_auth_pap.h - label_scriptHS_source.01.16.00 : 5 if (my ($key, $value) = $line =~ /\.\\(.+?)-\d+;.+?;(.+?)\s-\s/) { }