while (my $line = <STDIN>) {
    chomp $line;
    if ($line =~ /^#/) {....}
  }