my $number1_original = $number1;
$number1 =~ s/\..*//;
$number1 =~ tr/$,//d;
...
print "Content-type: text/html\n\n";
print "$number1_original is equal to $number2_original\n";