#!/usr/bin/perl -W

# TP texte en perl
#
# Question I - 4
# basé sur la solution cat1ter.pl
# 
# Antoine Miné
# 26/01/2007

while (<>)
{
    next if /^\s*\#/; # saute les commentaires
    next if /^\s*$/;  # saute les lignes vides
    print;
}