in reply to Split() first 3 elements of @array

split /PATTERN/,EXPR,LIMIT

[download]

In Section Seekers of Perl Wisdom