if ($str =~ m~<span class="test">(.*?)</span>~) {
    print "Im Bereich test steht $1.\n";
}