http://qs321.pair.com?node_id=1178854


in reply to Re^2: Perl split on regex match
in thread Perl split on regex match

while (my $line = <DATA>)
{
    print $line if (split /\./,$line) < 3;
}

[download]
But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)

In Section Seekers of Perl Wisdom