#!/usr/bin/perl

use strict;
use File::Slurp;

my @lines = read_file shift;

while(my $line = shift @lines) {
  my @chars = unpack('C*', $line);
  my $count = scalar @chars;
  @chars = map { (1, $_) } @chars;
  print "$count @chars\n";
}