Select Code to Download

use strict;
my $input='
...

my @arr=$input=~m#&lt;[^<>]+(?:<a>.+?</a>[^<>]*)?>#g;
print join "\n",@arr;

qr {&lt;(?:[^<>]+|<a>|</a>)*>}

qr {&lt;(?:[^<>]+|<a>|</a>)*[^>]*>}

my $re;
$re=qr{(?:[^<>]+|<a>(??{$re})?</a>)*};
my @arr=$input=~m#&lt;$re>#g;