Binary decoder

[neniro]

Sometime ago, some insane guy posted a lot of binary into a thread on a german news-forum. First I thougt it could be a kind of simple riddle so I tried to convert it to ASCII to see what it is, but it was just binary-polution. That's the conversion script:

#!/usr/bin/perl

use strict;
use warnings;

while(<DATA>) {
  chomp;
  my @cur = split(//, $_);
  my $val = 0;
  for (0..7) { $val += pop(@cur) * 2**$_; }
  print $., "\t", $val, "\t", chr($val), "\n";
}

__DATA__
01101010
10010101
01010101
01011011
01001101
01101010
10011011
01010000