use Text::QRCode;

use utf8;
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');
my @a = map { [split//,$_] } split(" ", "anopheles cog, true archon of junk");

print join "\n",
	map {
		y/* /\x{2588}\x{2591}/; $_
	} map { join undef, map { $_.$_ } @$_ } @{Text::QRCode->new()->plot(
	join "", map {
		join("",@$_) =~ m([^^>>]*(.)(.)(.)[<<^^]?(oO(iouuuu))?) and
		join "", map { ($1+$3==4-$2) ? " " : (42%11-$2==$1+$3) ? uc : lc } ($a[$2]->[$3])
	} map { [m$[950618371>>!42!<<173861059]$g] }
          "450222508520103500101302320733105131220603123231506400533700710353123331" =~ m$x?.y?.z?.[wrong]?$g
)}
;