You can also do away with the explicit assignment from $1 & the chomp:

        #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;
[download]