$ cat 1078855.pl use warnings; use strict; while () { print if /^#\s*[a-z]+/i; } __DATA__ #MO # MO #mo # mo # 555 $ perl 1078855.pl #MO # MO #mo # mo $