#!/usr/bin/env perl
#
# length - prefixes each line in the input with its length
#
# $Id$

# counts the length in bytes, without line end character(s)

use warnings;
use strict;

while (<>)
{
  print length($_) - length($/), ' ', $_;
}