Select Code to Download

  foreach my $var ('0', '-112.04', 'qwerty') {
        $var2 = eval '$var+0';
...
                print "May not be an number\n";
        }
}