Select Code to Download

#!/usr/bin/perl
use strict;
...
my $string = "foo 1foo foo2  3foo4  foo5bar 87";
$string =~  s/\d*[a-z]\d*//g;
print "$string\n";

#!/usr/bin/perl
use strict;
...
my $mandatory = qr/[a-zA-Z]/;
$string =~  s/$optional*$mandatory$optional*//g;
print "$string\n";