what if it were 7-23 and 7-133 where each size of the - was its own integer co-ord, and 7.23 was actualy 7.0023 and 7.133 was 7.0133

Quick untested idea for fix

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

Much optimzation could be done to that, but it gives you the idea