05/12/14 16:48:42
こうかな。
$_ = "AI今日U<KAKIKU>SASISU明日<TATI*TU>NANI";
(my $s1 = $_) =~ s/([^A-Z<]+)<([A-Z]+)\*([A-Z>]+)>/\%s/;
my $s2 = $1;
my $s3 = $1 . $3;
my $s4 = $2 . $3;
use Data::Dumper;
print Data::Dumper->Dump([$s1, $s2, $s3, $s4], [map { 's'.$_ } (1 .. 4)]);
>>377
誰にでも理解できるように仕様を説明するように。
具体的に言うと、小学生にも分かるように。