Select Code to Download

my %hash;
while ( <FILE> )
...
      or next;
    $hash{$key} = 'whatever';
}

my %hash;
while ( <FILE> )
...
    next unless $key;
    $hash{$key} = $value;
}

/^(\w+)\|/;
$hash{$1)='blah';

if ( /^(\w+)\|/ ) { $hash{$1} = 'blah' }