Select Code to Download

#!/usr/bin/perl

...
    (sprintf "%+e", $diff) =~ /([+-]\d)\./;
    return $1;
}

+1
+4
-5

sub base_point_movement {
    my $bpm = sprintf "%+e", shift;
...
          15553.1   - 15552.99,    # +11
          # etc. (you get the idea :)
      );