19:55 >perl -MData::Dump -wE "my $s = qq[fred\rwilma\003barney\rbetty\003]; my @lines = split /\r|\003/, $s; dd @lines;"
("fred", "wilma", "barney", "betty")

19:56 >