#!/usr/bin/perl

open(INF, "mood-nand.txt") || die("mood-nand.txt");
while(<INF>) {
  chomp;
  if (m#^[a-f0-9]+:(.*?)  #is)
  {
    my $x = $1;
    $x =~ s#^\s+##;
    foreach(split(/ /, $x))
    {
       print pack("c", hex($_));
    }
  }
}
close(INF);
