C:\Old_Data\perlp>perl t7.pl
aa D pos: pos reset
aa K pos: 1