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

##</code><code>##

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