use strict;
my $test="*abc abc* 9- -**** *";
my (@x) = $test=~m/([*a-zA-Z0-9_-]+)/g;
print scalar @x, qq/ Fundstellen\n/;

/<tr bgcolor="#CCCCCC">\n\t\t\t\t\t\t<td>([*a-zA-Z0-9_-!]+)/g

#!/usr/bin/perl

use strict;
use warnings;

my $str=qq/<tr bgcolor="#CCCCCC">\n\t\t\t\t\t\t<td>ABC*99-211!*A/;
my ($erg) = $str =~ /<tr bgcolor="#CCCCCC">\n\t\t\t\t\t\t<td>([*a-zA-Z0-9_\-!]+)/g;
print $erg;

([*a-zA-Z0-9_\-!]+)