#! perl -slw
use strict;
use Data::Dump qw[ pp ];
my @out;
while( <DATA> ) {
chomp;
my $n = 0;
$out[ $n++ ] .= $_ for unpack '(A2)*', $_;
}
pp \@out;
__DATA__
abcdef
abcdef
abcdef
abcdef
Produces:
C:\test>junk.pl
["abababab", "cdcdcdcd", "efefefef"]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
RIP Neil Armstrong