print "pos is ", pos, ", remainder '", substr($_, pos), "'\n";
pos($_) = undef;