Added some small boring scripts and programs writen in few last years

[mirrors/Programs.git] / c / tv-b-gone / parsecode.pl

#!/usr/local/bin/perl


foreach $line (<STDIN>) {
  if ($line =~ /(\d+)\s+(\d+)/) {
    print "{$1,\t$2},\n";
  }
}