Select Code to Download

my %translate = (
    '0 0' => -1,
...
    s/(\d \d)/$translate{$1}/g;
    print "New line: $_";
}

while (<DATA>) {
    s{(\d)\s+(\d)}{log(($1 * $2) || (1/2)) / log(2)}eg;
...
2 2 1 1 2 0 2 0 2 0 2 0
2 2 1 2 2 1 2 1 2 1 2 1
2 2 2 2 2 2 2 2 2 2 2 2

New line: 0 0 -1 -1 -1 -1
New line: 0 1 -1 -1 -1 -1
...
New line: 2 0 -1 -1 -1 -1
New line: 2 1 1 1 1 1
New line: 2 2 2 2 2 2