#!/usr/bin/env perl
use strict;
use warnings;

my @d=qw(ﾘ ﾝ ｿ);
my $d;
sub c { $d.=$d[int(rand($#d))] }
foreach(1..20) {
	$d.="ﾏ";
	foreach(0..2) { c }
	$d.="ﾏ";
	foreach(3..5) { c }
	print "$d\n";
	$d="";
}