c:\@Work\Perl\monks\A1 Transcendence>perl filter_MP_records_1.pl
M 'EQ99991.M 0 1 0 0 1 1 0 0 0 1 1 1 0'
P 'EQ99991.P 0 1 0 0 1 1 0 0 0 1 1 1 0'

M 'EQ99992.M 1 0 1 0 1 0 1 0 1 0 1 0 1'
P 'EQ99992.P 1 0 1 0 1 0 1 0 1 0 1 0 1'