while ($CONTENT =~ <div class=\"usertext-body may-blank-within md-container \"><div class=\"md\">(.+?)<\/div>
<\/div><\/form><ul class=\"flat-list buttons\"> //gs )

##</code><code>##

open(OUT, "">C:/Users/user/perl_tests/reddittest.txt");