C:\>perl -E "my $input='#abcd#ef#ghi#jklmnopqrstuv'; my @chunks = split(/([a-z]{3})/,$input); 
    use Data::Dumper; say Dumper @chunks;"
$VAR1 = '#';
$VAR2 = 'abc';
$VAR3 = 'd#ef#';
$VAR4 = 'ghi';
$VAR5 = '#';
$VAR6 = 'jkl';
$VAR7 = '';
$VAR8 = 'mno';
$VAR9 = '';
$VAR10 = 'pqr';
$VAR11 = '';
$VAR12 = 'stu';
$VAR13 = 'v';


##</code><code>##

C:\>perl -E "my $input='#abcd#ef#ghi#jklmnopqrstuv'; my @chunks = split(/[a-z]{3}/,$input); use Data::Dumper; say Dumper @chunks;"
$VAR1 = '#';
$VAR2 = 'd#ef#';
$VAR3 = '#';
$VAR4 = '';
$VAR5 = '';
$VAR6 = '';
$VAR7 = 'v';