$string = ucfirst lc $string;
$string =~ tr/()//d;