#!/usr/bin/perl -w

use strict;

my $hdata = 'FALCHE;12;ff;20020101;Pori;Yyteri;lietteet;testi;kylma';

my $crit1 = "pori";
my $crit2 = "yyteri";


if (($hdata =~/$crit1/i) && ($hdata =~/$crit2/i)) {print "$hdata\n"}