Select Code to Download

    my $pattern = qr{HOSTNAME:\s*(?:\d{4}-)?$dev_ref->{hostname}\s+GRB
+R:\s*$dev_ref->{grbr}}i;
    print "DEBUG: \$pattern='$pattern'\n" if $DEBUG;
    my $hostname = $buffer =~ m/$pattern/i   ?  1 : 0 ;