#!/usr/bin/perl -w

# Cerca la stringa che corrisponde a quella letta
# in input in un file

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


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

$el = <STDIN>;
chomp($el);
$j = 0;
while ($linea = <IN>) {
    $j++;
    if ($linea =~ /$el/) {
        print "Occorrenza in linea: $j\n";
    }
}