in reply to Re: how to splice an array?in thread how to splice an array?
Here is one way to do it with splice and join:
use strict; use warnings; my $string = "PERLPERLPEBLPEBLPERL"; my @array = split( '', $string ); while( scalar @array ) { my $extracted = join( '', splice( @array, 0, 4 ) ); print "[$extracted]\n"; } [download]