$file =~ m/((\".*\"|\d+|[\d :]+),){6} (.*)/; $line = $1; $restoffile = $2;