title: Print text within two RegEx
body: <p>How can I print the text starting at the occurence of the
  reg expression $START_REGEX till $END_REGEX?</p>
  
  <pre><code>#!/usr/bin/perl -w
  
  use strict;
  use warnings;
  
  package HTMLStrip;
  use base "HTML::Parser";
  use LWP::Simple;
  
  my $START_REGEXP = 'To the current program';
  my $END_REGEXP = 'Please choose';
  
  sub text {
      my ($self, $text) = @_;
      print $text;
  }
  
  my $p = new HTMLStrip;
  $p-&gt;parse_file("index.html");
  $p-&gt;eof
  </code></pre>