$text =~ s/\r//g;

##</code><code>##

    <textarea>
    stuff
    </textarea>

##</code><code>##

    <textarea>stuff</textarea>