#!/usr/bin/perl
use strict;
use warnings;
use feature qw/say/;
my $test ="aiueo";
say $test;
say $test;
say $test;
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKdXNlIGZlYXR1cmUgcXcvc2F5LzsKCm15ICR0ZXN0ID0iYWl1ZW8iOwpzYXkgJHRlc3Q7CnN1YnN0cigkdGVzdCwgMSwgMSwgIkkiKTsKc2F5ICR0ZXN0OwpzdWJzdHIoJHRlc3QsMiwxKSA9ICJVIjsKc2F5ICR0ZXN0Ow==