chomp(my @PatternArray = map { /^\s*$/ ? () : $_ } <DATA>);