perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"."\n"'