> > perlｽｸﾘﾌﾟﾄ書いた！ヽ(´ー｀)ノもう漏れも立派なﾌﾟﾛｸﾞﾗﾏだね
> > ( '-') -> [ '-'];
> 俺ならなみかれのスクリプトを20行で書けるよ

my $cnt;
print map { chomp; $_ x ++$cnt, "\n" } <DATA>;
__DATA__
涙
枯
れ
る
ま
で
泣
く
方
が
い
い

参考：2004/11/03(水)13時51分49秒