$content =~ s/\n//g;
if ( $content !~ /No UI/ ) {                                      
  while ( $content =~ 
	/<A\s+TARGET="UI"\s+HREF="(?<url>.*?)">
        (?<batch>batch.*?)<\/A><\/TD>
        <TD\s+ALIGN.*?>(?<key>.*?)<\/TD>
        <TD\s+ALIGN.*?>(?<interaction>.*?)<\/TD>
        <TD\s+ALIGN.*?>(?<title>.*?)<\/TD>
        <TD\s+ALIGN.*?>(?<time>.*?)<\/TD>
        <TD\s+ALIGN.*?>(?<status>.*?)<\/TD>/gsxm ) {
    %{ $ui_hash{$server}{ $+{key} } } = %+;
  }
}