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