「進捗・どう・です・か」をPerlで

「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム

元ネタと全然処理が違うけど書いてみた。
Perl6版もどうぞ。

進捗.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
binmode STDOUT, ":encoding(UTF-8)";

my @words = qw( 進捗 どう です か );
my $regex = qr/${ \join('', @words) }$/;

&main;exit;

sub main {

    my $word_buffer = '';
    while() {
        $word_buffer .= $words[ int( rand(@words) ) ];

        if( $word_buffer =~ /$regex/o ){
            print $word_buffer, "???\n", length( $word_buffer ), "文字で煽られました。\n";
            exit;
        }
    }
}

出力

どう進捗かです進捗です進捗かです進捗どうか進捗かですですかかどうどうどうです進捗ですですかか進捗進捗ですかかどうか進捗進捗ですですどうですかどう進捗進捗どうですか???
81文字で煽られました。

そして、進捗は芳しくない。

あわせて読みたい

言語	リンク
Perl	進捗どうですかブーム???に Perl でのりかかる
Ruby	進捗どうですかブーム?にrubyでのっかってみる
Python	進捗どうですかブーム??にPythonでのりかかってみる
ShellScript	進捗どうですかブーム???にShellScriptで挑むフリしてExpectに逃げる
Haskell	「進捗・どう・です・か」をHaskellで書いてみた
Gauche	進捗どうですかブームに乗り遅れてみる
Clojure	「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるClojure
Crystal	進捗どうですか Crystal
PHP	「進捗・どう・です・か」をPHPで書いてみた
Scala	Scalaの進捗どうですか
D言語	d言語で「進捗どうですか」
golang	golang の進捗どうですか
PowerShell	「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム（PowerShell）
SQL	「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるSQL
C#	「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム（C#で挑戦）
Elixir	Elixirで進捗どうですか？
bat	「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ
Vim script	「進捗・どう・です・か」をVim scriptで
golang + C言語	今年(2015年)に流行った「進捗・どう・です・か」をcgo + stringerで作ってみる。
Perl6	【Perl6】あの素晴らしい「進捗どうですか？？？」をもう一度
Kotlin	Kotlinに煽られる
bash,Ruby	「進捗・どう・です・か」をbashで
bash	「進捗・どう・です・か」 -- コマンドパイプ版