my $find = '^M';