This line smelled very fishy to me:

$to = substr($to, length($to) - length($diff))
[download]

And indeed, on the input 199 200, it prints 199-0.

Abigail