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