#!/bin/perl -n

print length($_), "\n";
print;