open (FILE1, 'file1.txt'); open (FILE2, 'file2.txt'); $content =~ /pattern="([A-Z\s]+)/g; $query = $1; $query =~ s/\s+//g; print("$query\n”);