use LWP::Simple;

$URL = 'https://www.reddit.com/r/unitedkingdom/comments/58m2hs/i_daniel_blake_is_released_today/';
$CONTENT = get($URL);


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

{
	$x = "$1";
	$y = "$y $x";
}

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


##</code><code>##

Microsoft Windows [Version 6.1.7601]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\Users\user>perl perl_tests/red1.pl
Scalar found where operator expected at perl_tests/red1.pl line 12, near "$x = "
$1"
  (Might be a runaway multi-line "" string starting on line 7)
        (Missing operator before $1?)
String found where operator expected at perl_tests/red1.pl line 12, near "$y = "
"
        (Missing semicolon on previous line?)
Scalar found where operator expected at perl_tests/red1.pl line 12, near "$y $x"

        (Missing operator before $x?)
String found where operator expected at perl_tests/red1.pl line 12, near "open(O
UT, ""
        (Missing semicolon on previous line?)
String found where operator expected at perl_tests/red1.pl line 15, near "open(O
UT, "">C:/Users/user/perl_tests/reddittest.txt""
Can't modify numeric lt (<) in scalar assignment at perl_tests/red1.pl line 12,
near "$x = "$1"
syntax error at perl_tests/red1.pl line 12, near "$x = "$1"
Execution of perl_tests/red1.pl aborted due to compilation errors.