removing DOT by using perl

Shell Programming and Scripting
1

Hi Friends,
I have a variable which has a number (e.g. 12.1234). I want to remove "." (dot) from that number i.e. 121234
I want to do this using perl.
Can you please guide me
Thank you
Anushree

2 
$ 
$ perl -le '$x=12.1234; print "Before: $x"; $x=~s/\.//; print "After:  $x"'
Before: 12.1234
After:  121234
$ 
$

tyler_durden

3

$var = 12.1234;
$str = substr $var,0,index($var,".");
$str2 = substr $var,index($var,".")+1;
print $str.$str2;