$report =~ tr/\-_.0-9//d;
$report =~ s/$_//ig for qw(crs html);