while(my $line = <$in>){
    $line =~ s/\*\s$//;
    print $line;
}