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

#!/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; } } }