#!/usr/bin/perl use warnings; use strict; open(FITX, $ARGV[0]) || die("Ezin $ARGV[0] fitxategia ireki\n"); my $patroia = $ARGV[1]; my $lerroa; while ($lerroa = ) { print($lerroa) if ($lerroa=~m/$patroia/i); } close(FITX);