#!/usr/bin/perl

my $foo = "<bar>totoz<bar>";

if ($foo =~ /<(\w+)>(\w+)<\1>/) {
   print "< $1 > : $2\n";
}