use strict;

my ($word1,$word2);

while (<DATA>) {
   if ($_ =~ /(\d{4}i32\.exe)/) {
      $word1 = $1;
   }

   if ($_ =~ /(\d{4}xcab\.exe)/) {
      $word2 = $1;
   }
}

print "$word1\n";
print "$word2\n";

__DATA__
4201xcab.exe
0501i32.exe