Select Code to Download

$dev_ref->{hostname} = '2383-RWAN-1';
$dev_ref->{grbr    } = '2383';
...

    my $hostname = $buffer =~ m/$pattern/i   ?  1 : 0 ;
print($hostname, "\n");