sub fixit { my $pt=shift; my ($x1,$x2)=split(/\./,$pt); return sprintf ('%08i.%08i',$x1,$x2); } .... last if (fixit($cursorPosition) <= fixit($tagBegin));