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

##</code><code>##

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