Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
use LWP::Simple 'get';
...
my ($section) = $html =~ /(\Q$search_start\E.*?\Q$search_end\E)/s;

print $section;
  2. or download this
    <p><b>Rockwell Automation</b><br />

...


<p>&nbsp;</p>