#!/usr/bin/perl -p
chomp $_;
$_=length($_)."\t$_\n";