use strict;
use warnings;
use Data::Dumper qw(Dumper);
my $hash;
{
    local $/;
    $hash = <DATA>;
}
#$hash = eval { $hash };
 $hash = eval   $hash  ;
 print keys %$hash; # error   (no more)

  __DATA__
  #$VAR1 = {
           {
            'blah.com' => [
                                               '212.235.56.176'
                                             ],
            'blah.org' => [
                                  '212.235.56.176'
                                ],
            'www.boo.org' => [
                                 '212.235.56.176'
                               ],
};


##</code><code>##

C:\Users\Bill\forums\monks>perl 11116141.pl
blah.comblah.orgwww.boo.org