(my $data = <$FH>) =~ s/^\s*#.*\n|^\n//gm;