my $str = "
</div>
</body>
";

print "Success\n" if $str =~ /\<\/div\>\n\<\/body\>/;

##</code><code>##

local $/;
my $str = <>;
print "Success\n" if $str =~ /\<\/div\>\n\<\/body\>/;