データから、カンマを取り除いた数値のみを切り出したいんですけど

if ($key eq 'log'){
$val =~ s/\,//;
if ($val =~ m/[0-9,]{1,10}/){
$number = $val;
}
}

ではうまくいきません。どの辺がおかしいかご教授願います。