09/12/09 12:40:25 0 BE:541153038-2BP(1245)
> cat s.pl
#!/usr/bin/perl
my $a = 'すあまさんは$1の$2が好き';
my @area = ('歌舞伎町','銀座','六本木','吉原','すすきの','実家','親戚','友達');
my @who = ('幼女','ママ','熟女','女王様','腐女子','変態','オカマ');
my @b =(undef, $area[int(rand(@area))], $who[int(rand(@who))]);
$a =~ s/\$(\d+)/$b[$1]/eg;
$\ = "\n";
print $a;
> ./s.pl
すあまさんは親戚の腐女子が好き
>