Select Code to Download

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

/^[^\d]{2,4}<([^>]+)>\d?.*$/;