my $string = "<tag>asdf</tag><tag>ghjkl</tag>";

if( $string =~ m{<tag>(.*)</tag>} ) {
    print $1, "\n";
}
__END__
asdf</tag><tag>ghjkl