local $/ = 'if (';

while (<DATA>) {
    chomp;
    next if ! length;
    next unless /eq '(\w+)'/;
    
    my $site = $1;
    push @{$site_data{$site}}, /'(\d+[^']+)'/gm;
}