$new = s/\.//g;
$new = substr($new, 2);