foreach $line(@urllist){
    $data = get($line);
    if ( $data =~ m!$regex1\r?\n$regex2!io ) {
        $school->{school} = $1;
        ($school->{school}{addr},
         $school->{school}{city},
         $school->{school}{zip},
         $school->{school}{phone},
         $school->{school}{level}) = ($2,$3,$4,$5,$6);
    }
# might the two lines show up in reverse order? then
    elsif ( $data =~ m!$regex2\r?\n$regex1!io ) {
        $school->{school} = $3;
        ($school->{school}{addr},
         $school->{school}{city},
         $school->{school}{zip},
         $school->{school}{phone},
         $school->{school}{level}) = ($4,$5,$6,$1,$2);
    }
    else { next }
    print join $/, $school->{school},
            map{$school->{school}{$_}} qw/addr city zip phone level/;
    print $/;
};