what does below code do ??

[abcdef1]

Hi,

I have below code in perl :

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

if (defined($1)) {
print "$1\n";
} else {
print "not found\n";

}
}

What is the code doing ?? what function of the regular expression

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

??

[Cabhan]

This sounds like a homework question. Homework questions are not allowed as per the forum rules:

http://www.linuxforums.org/forum/lin...ums-rules.html

You can look this up for yourself by Googling for information on regular expressions in general, and Perl regular expressions in particular.