How do I strip lines prefixed by a "#"

[Coplan]

Let's assume that I have a text file with the following format:

# This is a commented line
# blah blah blah
:data
:data

Well, I've been able to read the file into a scaler. Now i'd like to strip all the comment lines (prefixed by "#") out of the scaler before I move on and do anything else. For the sub routine, I am useing the following code:

sub get_info {
  my $infile = "template.dsc";
  open (INFILE, "$infile") || die "Broken: $!";

  my $content;
  while (<INFILE>) {
    $content .= $_;
  };

  # Remove Comments?


  close (INFILE);
  return $content;
};

Please help me get rid of that unwanted data (but I need to keep it in the text file for the idiots who use it).

Originally posted as a Categorized Question.