Perlでマッチした結果を引数にして置換する。

Perlの面白みはこの辺にもりますよね。
コアっぽい動きを簡単に実装して体験できちゃう♪

 #!/usr/bin/perl
 
 use strict;
 use warnings;
 
 my $str = "12345";
 
 $str =~ s/[0-9]/&change($&)/eg;
 
 print $str;
 
 sub change{
   my ($n) = @_;
   my @a = ('A'..'Z');
   return $a[$n];
 }