Select Code to Download

while( <DATA> ) {
    chomp;
    my ( $data ) = m/TAG:(\"([^\"]+)\"|([^\"\s]+))/ ? $+ : 'not_def';
    print "$_ => $data\n";
}