open(FILE,"test.txt") or die $!;
while($line=<FILE>){
$line=~s/-- .*//g;
print "$line\n";
}