#!/usr/bin/perl -w
use strict;

$_="011291020310415102805081036150812103801030115081";
s/(..)/\\x$1/g;eval"\$_=\"$_\";";print,if($_=join'',map{
chr((vec($_,0,4).vec($_,1,4))+96)}split//)=~s;~; ;g;