note
BrowserUk
<code>
#! 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
</code>
<p>Produces:<code>
C:\test>junk.pl
["abababab", "cdcdcdcd", "efefefef"]
</code>
<div class="pmsig"><div class="pmsig-171588">
<hr />
<font size=1 >
<div>With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'</div>
<div>Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.</div>
<div>"Science is about questioning the status quo. Questioning authority". </div>
<div>In the absence of evidence, opinion is indistinguishable from prejudice.
<p align=right> [http://thebottomline.cpaaustralia.com.au/|RIP Neil Armstrong]</p></div>
</font>
</div></div>
1005630
1005630