use Modern::Perl;
use LWP::Simple 'get';

my $vendor = 'Rockwell Automation';
my $search_start = "<p><b>$vendor</b><br />";
my $search_end = '<p>&nbsp;</p>';

my $url = 'http://www.us-cert.gov/control_systems/ics-cert/archive.html';
my $html = get $url;

my ($section) = $html =~ /(\Q$search_start\E.*?\Q$search_end\E)/s;

print $section;

##</code><code>##

<p><b>Rockwell Automation</b><br />

Rockwell Automation ControlLogix Multiple PLC Vulnerabilities (UPDATE), 

<a href="/control_systems/pdf/ICS-Alert-12-020-02A.pdf">ICS-ALERT-12-020-02A</a> 

(February 14, 2012)</p>



<p>Rockwell Automation ControlLogix PLC Multiple Vulnerabilities, 

<a href="/control_systems/pdf/ICS-Alert-12-020-02.pdf">ICS-ALERT-12-020-02</a> 

(January 20, 2012)</p>



<p>Rockwell Automation FactoryTalk RNADiagReceiver, 

<a href="/control_systems/pdf/ICSA-12-088-01.pdf">ICSA-12-088-01</a> 

(March 28, 2012)</p>



<p>Rockwell Automation FactoryTalk RNADiagReceiver (UPDATE),

<a href="/control_systems/pdf/ICSA-12-088-01A.pdf">ICSA-12-088-01A</a>

(April 06, 2012)</p>



<p>Rockwell Automation FactoryTalk RNADiagReceiver, 

<a href="/control_systems/pdf/ICS-ALERT-12-017-01.pdf">ICS-ALERT-12-017-01</a> 

(January 17, 2012)</p>



<p>Rockwell FactoryTalk Diag Viewer Memory Corruption, 

<a href="/control_systems/pdf/ICSA-11-175-01.pdf">ICSA-11-175-01</a> 

(June 24, 2011)</p>



<p>Rockwell-PLC5, 

<a href="/control_systems/pdf/ICSA-10-070-02.pdf">ICSA-10-070-02</a> 

(March 11, 2010)</p>



<p>Rockwell RSLinx EDS, 

<a href="/control_systems/pdf/ICSA-11-161-01.pdf">ICSA-11-161-01</a> 

(June 10, 2011)</p>



<p>Rockwell RSLogix, 

<a href="/control_systems/pdf/ICS-ALERT-11-256-05.pdf">ICS-ALERT-11-256-05</a> 

(September 13, 2011)</p>



<p>Rockwell RSLogix (UPDATE), 

<a href="/control_systems/pdf/ICS-ALERT-11-256-05A.pdf">ICS-ALERT-11-256-05A</a>&nbsp; (September 19, 2011)</p>



<p>Rockwell RSLogix Denial-of-Service Vulnerability, 

<a href="/control_systems/pdf/ICSA-11-273-03.pdf">ICSA-11-273-03</a> 

(September 30, 2011)</p>



<p>Rockwell RSLogix Denial-of-Service Vulnerability (UPDATE), 

<a href="/control_systems/pdf/ICSA-11-273-03A.pdf">ICSA-11-273-03A</a> 

(October 06, 2011)</p>



<p>RSLinx, 

<a href="/control_systems/pdf/ICSA-10-070-01.pdf">ICSA-10-070-01</a> 

(March 11, 2010)</p>



<p>RSLinx (UPDATE), 

<a href="/control_systems/pdf/ICSA-10-070-01A.pdf">ICSA-10-070-01A</a> 

(May 03, 2010)</p>



<p>&nbsp;</p>