use Data::Dumper qw(Dumper);
use warnings;
use strict;
my $hash;
{
    local $/;
    $hash = <DATA>;
}

my $VAR1;
eval $hash;
print keys %$VAR1;

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