use warnings

print "IR-SERIES 0.1 (C) COPYRIGHT M.REINHARDT\n";
open (FILE, "./file.txt");
my @data = <FILE>;
close (FILE);
chomp @data;

while( 1 )
{
   my $input = <STDIN>;

   last if( $input =~ /isses|ayaya/i );

   my $found = 0;

   foreach my $line (@data)
   {
      my ($in,$out) = split(/\|/, $line, 2);
   
      if($input =~ $in){
         print "$out\n";
         $found = 1;
      }
   }

   if( !$found )
   {
      
       print "Wie soll ich darauf antworten?: ";
        
       my $answer = <STDIN>;
         chomp($answer); 

        open (FILE, "> ./file.txt"); 
        print FILE $answer."\n";
        close FILE;

           print ".\nOK. Eintrag wurde gespeichert.";
   }
}