in reply to Why won't it please be a number?

Works fine after you fix the

syntax error at *** line 21, near "$data["

by removing the "my" in front of "my $data[2] =~ /\s*(-?\d*\.\d*)0000/;"

I get: 

  -4.110000 plus 1 is -3.11
 -4.11 is regexed

[download]
after that correction, using your sample data.

Also, please "use strict;", even for small programs.

     Theory is when you know something, but it doesn't work.
    Practice is when something works, but you don't know why it works.
    Programmers combine Theory and Practice: Nothing works and they don't know why.         -Anonymous

In Section Seekers of Perl Wisdom