違う変数に入れちゃっても良いような。
($hage = $hoge) =~ s/\D//g;