Select Code to Download

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

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