Select Code to Download

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

<This is sample text>
&lt;This is  sample text <a>this is sample text</a> sample text >