use strict;
use warnings;

my $mob = '070222000123';
print "$mob\n";
$mob =~ s/[:;$%&@<>?]//gi;
print "$mob\n";