Help for this page

Select Code to Download


  1. or download this
    while ( $string =~ m!(<a[^>]*>)([^<]+</a[^>]*>)!ig )