>perl -Mstrict -Mwarnings -MData::Dump=dd
my $line = "foo,bar\n";
$line = substr($line, 0, -2) . "\n";
dd $line;
^Z
"foo,ba\n"