Since this is turning into a TIMTOWTDI type discussion, why not generalize it:

while (<FILE>) {
        chomp;
        my @f = split /--/;
        s/^\s+|\s+$//g for @f;
        local $"="\t";
        print "@f\n";
}
[download]

--
$you = new YOU;
honk() if $you->love(perl)