Select Code to Download

$string = reverse $string; 
($number)=$string=~/\(([^)]*)\)/;
$number = reverse $number;