Select Code to Download

my $string = join '', 'a'..'z';
my @fields = $string =~ /.{1,3}/g;
my @fields2 = grep {$a=!$a} @fields;