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";

##</code><code>##

print "$number1_original is ",
  ('equal to', 'greater than', 'less than')[ $number1 <=> $number2 ],
  " $number2_original\n";