A quick and dirty trick:

sub subtraction {
    local $" = "-";
    eval "@{[split ' ' => scalar <STDIN>]}";
}
[download]

It won't be the fastest solution though.

Abigail