#!/usr/bin/perl -w

# Dato un array di stringhe cerca una stringa letta
# in input su console

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


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

$el = <STDIN>;
chomp($el);
$i = 0;
$j = 0;
while ($linea = <IN>) {
    $j++;
    @string = split(/\s+/,$linea);
    foreach $parola (@string) {
        if ($parola =~ m/$el/) {
            print "In linea: $j occorrenza ".$i++."\n";
            #print "$parola\n";
        }
    }
}