Re^3: Need help parsing ambiguously formatted data

You could redefine how you read the data in. Or, you could

sub rework_data
{
    my $x = join '', @_
    my $fh = IO::Scalar->new( \$x );
    my @rebuilt_data;
    {
        local $\ = '*';
        @rebuilt_data = <$fh>;
    }

    return @rebuilt_data;
}
[download]

I love treating arrays as filehandles. :-)

(Oh, it's $\ ... I just remembered cause I keep writing print $foo, $/;, so it can't be that one. *grins*)

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Comment on Re^3: Need help parsing ambiguously formatted data Select or Download Code