if ($num =~ m/  \A (-?) ([0-9]+) \z /x ) {
    my $sign = $1;
    my $digits = $2;
    ...
}