c:\@Work\Perl>perl -wMstrict -le
"my $s = '<span class=\"author-name\" itemprop=\"author\">Romaxton</span>';
 ;;
 $s =~ s/<[^>]+(\w+)/$1/;
 print qq{'$s'};
"
'r">Romaxton</span>'