Help for this page
($RR_Name,$Loco_no,$Event_Date,$Event_Time,$Event_Code,$Event_Duration +,$Source_File)=split(/,/,$record);
($RR_Name,$Loco_no,$Event_Date,$Event_Time,$Event_Code,$Event_Duration +,$Source_File)=split(/[ ,]+/,$record); # + ^ ^^