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

##</code><code>##

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