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