open($input, "<$file") or die "kann $file nicht oeffnen: $!\n";
while(<$input>) {

   print if(/*irgendwas*/);
}
close ($input);