017-numify.pl

use v6;

my $in = open "01.pl", :r or die "Unable to open 01.pl: $!\n";
my $out = open "02.pl", :w or die "Unable to open 02.pl: $!\n";

for $in.lines
{
    when /\#/ { $out.say: $_; }
    when /(.*)\"(.*)\"(.*)/ 
    {
        my $start = $0; 
        my $end = $2;
        my $count = 0;
        $1.subst(rx/<alpha>/, { $count++ }, :g);
        $out.say: $start ~ $count ~ $end;    
    }
    when * { $out.say: $_; }
}

$in.close;
$out.close;