Help for this page

Select Code to Download

Select or download this

#!perl

...
    if ( @{ $uniq{$line}[0] } > 1 ) { $magic = '"' . $magic . '"'; }
    print $line, ',', $magic, ',', $uniq{$line}[1], "\n";
}