Forum Moderators: coopster & phranque
Thanks
D O N
So, here is another solution:
$n = -1263.64783; $n =~ /(\-?[0-9]+)/; print "$1\n";