http://www.perlmonks.org?node_id=232492


in reply to Re: Removing delimiters
in thread Removing delimiters

Hi.

Why do two splits, when one would do?

my ($first, $second) = split /::/, $readline, 3;

[download]
or more simply 
my (@fields) = split /::/, $readline;

[download]

Cheers,

-- Dave :-)

$q=[split+qr,,,q,~swmi,.$,],+s.$.Em~w^,,.,s,.,$&&$$q[pos],eg,print

In Section Seekers of Perl Wisdom