while (<>) {
   s/\s+\z//;
   ...
}

##</code><code>##

/
   ^
   \s*
   ([*#]+:?)
   \s*
   (.*\S)?
   \s*
   $
/sx