while ($content =~ m/<(td|th).*?<strong>(<.*?>)?(&nbsp;)?(?<sport>([(]?(Women('|&#39;)s|Men('|&#39;)s|W|M)?[)]?(\s|&nbsp;)?)?(Archery|Badminton|Baseball|Basketball|Bowling|Cross Country|Track (&|&amp;|[Aa]nd) Field|Equestrian|Fencing|Field Hockey|Football|Golf|Gymnastics|Ice Hockey|Lacrosse|Rowing|Rifle|Rugby|Skiing|Soccer|Softball|Squash|Swimming ([Aa]nd |\s?[\/-]\s?|)Diving|Swimming|Diving|Synchronized Swim|Team Handball|Handball|Tennis|Volleyball|Water Polo|Wrestling)(\s?[-,]\s?)?\s?[(]?(Women(('|&#39;)s)?|Men(('|&#39;)s)?|W|M)?[)]?):?(.*?)?<\/(strong|br)>/gi)
{
    print $+{sport} . "\r\n";
    
    if ($content =~ m/\G.*?<tr.*?>(.*?)<\/tr>/sgc)
    {
        my $coach_info = $1;
        while ($coach_info =~ m/<td.*?>(.*?)<\/td>/mg)
        {
            print $1 . "\r\n";
        }
        
    }


}