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