my $find = '^M';

##</code><code>##

no M at start
M at start
M at start again
another line, no M at start

##</code><code>##

M at start
M at start again