Select Code to Download

$page =~ s/(%TABLE{.*?name\=\"History[^"]*"[^}]*}%\s*(\|[^\|]*){3}\|\s
+)((\|[^\|]*){3}\|\s)*/$table/eo;