while (my $line = <STDIN>)
  {
    chomp $line;             # same as chomp $_
    if ( $line =~ m/^#/ )
    {
      # Action on $line.
    }
  }