my $server = $self-{server}; my $response = $http->get("http://$server:8080/turnka/view"); my $content = $response->{content}; if ( $content !~ /No UI/ ) { my @ui = ( $content =~ /( (?<\/TD> (.*?)<\/TD> (.*?)<\/TD> (.*?)<\/TD> (.*?)<\/TD> (.*?)<\/TD>/gs ); foreach my $ui (@ui) { $ui_hash{$server}{$3}{'batch'} = $2; $ui_hash{$server}{$3}{'url'} = $1; $ui_hash{$server}{$3}{'interaction'} = $4; $ui_hash{$server}{$3}{'title'} = $5; $ui_hash{$server}{$3}{'time'} = $6; $ui_hash{$server}{$3}{'status'} = $7; } }