use strict;
use warnings;

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

##</code><code>##

070222000123
7222123