$foo = 123.456;
$foo =~ s/\.//g;
print $foo;