my $csv_record = qq{\N{BYTE ORDER MARK}"Field One","Field 2",3,4,"Field Five" };