script/echo.pl
    --------------------------------------------------
    #標準出力に指示を出力
    print STDOUT "Type any word you like ([ENTER] to exit)\n\n";

    #標準入力（キーボード）からデータを読み込めるあいだ，以下の処理を行う
    while (<STDIN>) {

       #不要な [改行] を取る
       chomp;

       #データに空白類以外なければメッセージを表示して終了
       if (/^\s*$/) { print "Bye!\n\n"; exit; }

       #次の形式でデータを出力
       print "$_ .. $_ ...";

       #一文字削除できるあいだ，以下の処理を行う
       while (s/.//) {

          #データの残りの部分を次の形式で出力
          print " $_ ....";

       }

       #すべての文字が削除されたら，次のように出力
       print "..\n\n";

    }

    #終了
    exit;
    --------------------------------------------------