my @matrix;
while(length($data))
{
  my $line=subtsr($data,0,($image_width)*3,'');
  push(@matrix,[split(//,$line)]);
}