Select Code to Download

use bigint;
while(<>) {
...
    $a += 0;
    print $a - $b, "\n";
}

use bigint;
while(<>) {
    my ($a, $b)= map { 0+$_ } split/ /;
    print $a - $b, "\n";
}