foreach my $line () { next if $line =~ /\A\Z/; ($site, ... ... }