if ($string =~ /^<\*(\d+)>([,\w]+)<(\d+):(\d+):(\d+)>$/) {
    print "Matched\n";
}