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