>>80
r オプションつかうと括弧省ける
$b = $a =~ s/^0*(\d)/$1/r;