Select Code to Download

use strict;
use warnings;
...
my @pieces = $to_split =~ /('\w'(?:,'\w'){0,4})/g;
$"="\n";
print "@pieces\n";

use strict;
use warnings;
...
my @pieces = grep {$_} split /('\w'(?:,'\w'){0,4}),?/, $to_split;
$"="\n";
print "@pieces\n";