while ( $line = <STDIN> ) { next if ( $line =~ /^#/ ); ... }
if ( $line =~ /[aeiou]/i ) { # Vowel } else { # Consonant }