Hi,

I have below code in perl :


my($abc) = "fred<hello>3hello";
$abc =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/;

if (defined($1)) {
print "$1\n";