#!/usr/local/bin/perl
# 
# thanks to jeff weisberg for the wonderful concept!

s//111040114117126105040120105122114012/;s/(...)/chr(oct $1)/eg; print;