删除perl中的特殊字符

Question

我有一个像

$mynum = "(800)-756-1235";

我想删除所有特殊字符,只想在这里输入数字.
如何在perl中做到这一点？

Answer 1

此正则表达式将删除所有非数字字符.

$mynum =~ s/\D+//g;