Of course that can be condensed a bit:

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

I debated putting the crs and html together in an alternation but I'm relatively certain it'd be a loss so I picked a for to satisfy the once and only once rule.

Makeshifts last the longest.