open my $fh, '+<', 'four_comma.txt' or die ...

##</code><code>##

record1,record2,record3,record4,record5