Replace parentheses, Cr1(affine)

$fname = "/online_dir/Cr1(affine).lis";
$fname =~ tr/\(/_/;
$fname =~ tr/\)//d;

--> "/online_dir/Cr1_affine.lis";