get nba full teamname from an html file, parse it and print in "key(abb teamname) : value(full teamname)" format get nba teamname from html code from espn.com

get_full_teamname.pl

#!/usr/bin/perl

open(IFILE, "<fullteamname.html");
open(FILE, ">_ftn.txt");

while(<IFILE>) {
    chomp();
    if ($_ =~ /<h4>(\w+?)<\/h4>/) {
        $sec = $1;
        print $sec;
        $hash{$sec} = [];
    }
    
    if ($_ =~ /espn.go.com\/nba\/team\/_\/name\/(\w{3})\//) {
        $team = "'".$1."', ";
    }
    if ($_ =~ /<h5><a.+?">(.+?)<\/a><\/h5>/) {
        print $1;
        #$team .= ":'".$1."',";
        #$team .= "'"$1."', ";
        push($hash{$sec}, $team)
    }

}
while (($key, $value) = each %hash) {
    print "$key => @{$hash{$key}}\n";
    #print @{$value};
    syswrite(FILE, "'$key':@{$value}\n");
}

close(FILE);
close(IFILE);

<>

get_teamname.pl

#!/usr/bin/perl
#
use Cwd;

$path = getcwd;

open FILE, 'aaa.txt';

while (<FILE>) {
    chomp;
    #print "$_\n";
        #if ( /<option.*">(.+)<\/option>/ ) {
        while (/<option.*?">(.+?)<\/option>/g) {
            push @team, $1;
        }
}
print "@team";

<>;

get_teamname2.pl

#!/usr/bin/perl
#
use Cwd;

$path = getcwd;

open FILE, 'stylesheets/teamlogo.css';

while (<FILE>) {
    chomp;
    #print "$_\n";
        #if ( /<option.*">(.+)<\/option>/ ) {
        #while (/<option.*?">(.+?)<\/option>/g) {
        while (/nba-large-(\w{3}),/g) {

            push @team, "'".$1."',";
        }
}
print "@team";

<>;