#!/usr/bin/perl -w

# Separa le parole in base agli spazi

use strict;
my($linea, $el, $i, $j, @string, $parola, $out);


print "Leggo il testo da file\n";
open(IN, "file.txt");

$j = 0;
while ($linea = <IN>) {
    $j++;
    @string = split(/\s+/,$linea);
    $out = join(":","- $j -",@string);
    #$out = join(":",@string);
    print $out."\n";
}