# Remove comment line(s)
  $para =~ s/^\s*#.*//mg;

  # Trim trailing white space
  $para =~ s/\s+$//;  # add this 

  ..