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