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

o/p:
2
33