perl -lwe '
my $string = "<b>hallo</b>";
print $string =~ m{<.*?>(.*)</.*?>};'