while ( $string =~ m!(<a[^>]*>)(.+?</a[^>]*>)!ig )
{
      print "$1 \n";
      print "$2 \n";
}