my $string = 'mystring123456';
$string = join '', grep {$_ ne 1} split //, $string;