1. sub DraftHISTORY{
2.     my $url = 'http://www.hockeydb.com/ihdb/draft/teams/dr00008756.html';
3.     my @ret;
4.  
5.     my $data = download( $url );
6.     my ($div) = ( $data =~ /<div class="title">Vancouver Canucks Draft History<\/div>(.*)<\/div>/s );  # every "/" inside needs "\"
7.     my @stats = ( $div =~ /<tr>(.*?)<\/tr>/gs ); # we have $div, now we pick every row (/g) into @stats
8.     shift @stats;
9.     my $yearcnt = 2015;
10.  
11.     return 'an error occured.' if( @stats<=0 );
12.    
13.     my $formatheader = "%-30s %90s";
14.     my $format = "%-10s %-5s %-7s %-30s %-3s %-50s %-3s %-3s %-3s %-5s %-5s";
15.     push @ret, "\x02\x1F" . sprintf($formatheader, ("Canucks Draft History", "NHL Totals"));
16.     push @ret, "\x02\x1F" . sprintf($format, ("Draft", "Num.", "Round", "Player", "Pos", "Drafted From", "GP", "G", "A", "Pts", "PIM")) . "\x02\x1F";
17.     foreach( @stats ) {
18.         my ($Draft, $Num, $Round, $Player, $Pos, $Drafted, $Games, $Goals, $Assists, $Points, $PIM) =
19.         ( /<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*<td.*?>(.*?)<\/td>\s*/ );
20.         ($Draft) = ( $Draft =~ /<a.*?>(.*?)<\/a>/ );
21.         ($Player) = ( $Player =~ /<a.*?>(.*?)<\/a>/ );
22.         push @ret, sprintf($format, ($Draft, $Num, $Round, $Player, $Pos, $Drafted, $Games, $Goals, $Assists, $Points, $PIM));
23.         last if ($Draft == $yearcnt);
24.     }
25.  
26.     return @ret
27. }