#!/usr/bin/perl
  # Cel: Wypisać linie za wyjątkiem komentarzy Perl-a
use strict;
use warnings;

while(<>) { 
	# Wyrażenie regularne ma też uwzględnić pocztkowe tabulatory
	if(!/^[ \t]*#/) { 
		print;
	}
}