「Luce」「Twinkle」「Wink」「☆」をランダムに表示し、「Luce Twinkle Wink☆」が完成したら Set Up して終了するプログラム

luceTW

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

{
    binmode STDOUT, ':utf8';

    local $|  = 1;

    my @words = qw(Luce Twinkle Wink ☆);
    my $goal  = 'Luce Twinkle Wink☆';
    my $len   = 0;
    my $name  = '';

    while (1) {
        my $word = $words[rand @words];
        $word = " " . $word if $len && $word ne '☆';
        $len += length($word);

        print $word;

        if ($word =~ /^\s?(Luce)/) {
            $name = $1;
        }
        elsif (($name .= $word) eq $goal) {
            last;
        }
    }
    print " Set Up!!\n";
    printf "%d 文字で Set Up しました。\n", $len;
}