Select Code to Download

$content =~ s#.*<h1>Random Movie Quote</h1>(.*)<P><form method=get act
+ion="/Games/randomquote.html">.*#$1#s;

if ($content =~ m#<h1>Random Movie Quote</h1>(.*)<P><form method=get a
+ction="/Games/randomquote.html>#s)
  $content = $1; # we matched, replace $content with $1.
...
} else {
  # we didn't match, complain.
}