my $position = pos($text);

##</code><code>##

my $position = ($-[0]);