use strict;
use warnings;

for my $vmstr ("0", "01", "00", "000", "1", "10") {
    my ($digits) = "-$vmstr" =~ /-(\d+)$/;

    print "'$vmstr': \$digits '$digits'\n";
}