Select Code to Download

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

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

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

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