#!/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;