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

##</code><code>##

$line =~ m{\d+};
my $pos = length $`;

##</code><code>##

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

##</code><code>##

$line =~ m{\d+};
my $pos = $-[0];