#!/usr/bin/perl

my $x = '1,2,3,4,5,6,7';
my @x = split (/,/, $x, 3);
my @y = (split (/,/, $x, 4))[0 .. 2];

{
        local $"="', '";
        print "'@x'\n";
        print "'@y'\n";
}
----------
'1', '2', '3,4,5,6,7'
'1', '2', '3'