use WWW::Mechanize;
use strict;
    my $mech = WWW::Mechanize->new();
my $url = "http://www. thebaseballcube. com/teams/team_32. shtml"; 
    $mech->get( $url );

    
    $mech->follow_link( text_regex => 2005 );