($RR_Name,$Loco_no,$Event_Date,$Event_Time,$Event_Code,$Event_Duration,$Source_File)=split(/,/,$record);

##</code><code>##

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