$q = '72811681208119812085083989081208120812181178114'; for (split(substr(
$q,10,1), $q)) { push @q, $_; } for (1 .. 13) { $q[$_-1] -= $_ } print chr
for (@q); print "\n";