my $phase;
my $number = 2.543;

#substr
$phase = "0" . substr($number,index($number,"."));

#regex
$number =~ /(\..+)/;
$phase = "0$1";


#int
$phase = $number-int($number);