Select Code to Download

#!/usr/bin/perl -lw
use strict;
...
my $string = 'a and a b and a 5 and a 6 and a 8 an what?';
print $string;
$string =~ s/(\d)/&what($1)/ge;