my $in_str = 'aa<c><d>r';

if ($in_str =~ /^aa((<[^>]*>)*)([^a-zA-Z]*)/)
{
    print "Found 1: $1\n";
    print "Found 2: $2\n";
    print "Found 3: $3\n";
}