#!/usr/bin/perl -l eval join "", map { chomp && chr length }