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