use strict;
use warnings;
use ID::Utilities;

use constant ARCHIVE => "http://www.us-cert.gov/control_systems/ics-cert/archive.html";

my $utils = new ID::Utilities;
my $html = $utils->getHTML( ARCHIVE );

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

$html =~ m/($search_start.+$search_end)/i;
print $1;