$ perl -Mstrict -Mwarnings -E '
    # Create test data
    use autodie qw{:all};
    use File::Temp;
    my $fh = File::Temp->new(UNLINK => 1);
    print $fh "qwe\rasd\003zxc\r123";
    seek $fh, 0, 0;

    # Read data splitting on "\r" or "\003"
    say for split /(?>\r|\003)/ => do { local $/; <$fh> };
'
qwe
asd
zxc
123