Select Code to Download

    my  $nbridx   =  1;
    my  $filename;
...
bottles99.ale
0bottles.beer
666

   my  @a = $filename =~ m/ (\D+)? (\d+)? /xg;