...
while (my $pattern = <DATA>) {
 next if $pattern =~ /^\s*$/;
...