Select Code to Download

my $keysForRE = join '|', keys %date_hash;
while(<FILE>){
...
    # do stuff to $piece2
    $_ = join 'WARNING', ($piece1, $piece2);
}