Perlコーディング初心者質問スレ Part 55

[0019 nobodyさん 2007/06/01(金) 13:00:54 ID:???]

$hoge =~ s/((.)\2*)/$1\n/g;
print $hoge;