problemino in Perl

[basileus]

ho bisogno di una cosa

dato la stringa 11.12

come faccio ad ottnere solo 11??? senza il .12

seconda cosa
dato 11.12

come faccio ad ottnere solo 12??

[MARTEDI]

$num=11.12;
@val=split(/\./,$num);

$dato1=$val[0]; #11
$dato2=$val[1]; #12

[Francis87]

$num=11.12;
$num=~/(\d+)\.(\d+)/;
print $1,"\n"; # 11
print $2,"\n"; # 12