my $line = "<ci:Name> Lord: Of The $10Ring$s </ci:Name>";
my $words = '';
if ($line =~ m/<.*>(.*)<\/.*>/) {
  $words = $1;
}
print  $words;