m/^M[A-Z]{3}/

##</code><code>##

perl -le'foreach ( <*.txt> ) { print if /^M[A-Z]{3}/ }'