Select Code to Download

my $string=" \aabc123def!*#\n";
$string=~s{  ([[:digit:]]+)
...
                                     
          }gex;
print $string;