Work on perl_pos bug
Work on perl_pos bug: t-1
Work on perl_pos bug: t-1