> 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
すあまさんは親戚の腐女子が好き
>