Here's my code:
foreach $line(@urllist){
                        $data = get($line);
                        @x = split/\r\n|\n/,$data;
                        foreach my $line1(@x){
                                ($school->{school},
                                 $school->{addr},
                                 $school->{city},
                                 $school->{zip}) = ($1, $2, $3, $4)
                                 if $line1 =~ m!$regex1!io;
                                 ($school->{phone}, $school->{level}) = ($1, $2)
                                 if $line1 =~ m!$regex2!io;
                                 }
print "$school->{school}\n$school->{addr}\n$school->{city}\n
       $school->{zip}\n$school->{phone}\n$school->{level}\n\n";
                        };