Hi, Just try this using split function

$x = "2.33";
($y,$z) = split(/\./, $x);
print "$y";
print "\n$z";

o/p:
2
33
[download]

Regards, Gubendran.L