#get blocking type my ($error,$block_type) = m /Found\s+(\S+)\s+.*:\s+(\d+)/x; ## Do something with the data if $error & $block_type ## exist do_something($error,$block_type) if defined $error; next LINE;