$line =~ m{\d+}g;
my $pos = pos($line) - length $&;