Help for this page

Select Code to Download

Select or download this

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

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

Select or download this

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