my @lines = ("foo*\n", "foo* \n", "foo*  \n");
for my $line (@lines) {
   $line =~ s/\*\s$//;
   print "($line)\n";
}

##</code><code>##

   $line =~ s/\*\s*$//;