$page =~ s/(%TABLE{.*?name\=\"History[^"]*"[^}]*}%\s*(\|[^\|]*){3}\|\s +)((\|[^\|]*){3}\|\s)*/$table/eo;
Update Thank you so much for all your help. I am all set now. I appreciate everybody's input in helping me to understand this complicated part of Perl Regular expression. :)
In reply to Regular expression Problem by archimca
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |