#! perl -sw
use Data::Dumper;
use strict;
local $\=$/;
=pod Note! This is a comment only!!
my %patterns;
open(PFILE, "whatpattern.txt")|| die "Cannot open whatpattern.txt file";
while (<PFILE>) {
	chomp;
	next unless $_;
	my @tags = split /; |:/;
	my $key = shift @tags;
	$patterns{$key} = \@tags;
}
open(TESTFILE, "alltestfile")|| die "Cannot open alltestfile";
=cut
my %patterns = (
	'/WRB1/JJ1/VBZ1/NP1/IN1/NP2'	=>	'/NP1/VBZ1(so)/JJ1 : /NP1/IN1/NP2/VBZ1(really)/JJ1',
	'/WP/NP1/VB1/VBN1/PP1'			=>	'/PP1/PP2/NP1(are)/VB1',
);


while(defined(my $question=<DATA>))
{
	my @qkeys = $question =~ m!(/[A-Z0-9]+)!g;
	my @qvalues = $question =~ m!(.*?)(?:/[A-Z0-9]+\s+)!g;


	my %questionlookup;
	@questionlookup{@qkeys} = @qvalues;

	my $key = join'',@qkeys;

	print $question."\n\n";
	if (my $answer = $patterns{$key})
	{

		#! You had a syntax error here--------------------v !!!!!!!!!!!
#!		$answer =~ s!\s*$_\s*! $questionlookup{$_} !g for qkeys %questionlookup;

		$answer =~ s!\s*$_\s*! $questionlookup{$_} !g for keys %questionlookup;
		$answer =~ s/\:/\n\n/g;
		print $answer;

	} else {

		print "No Match\n";

	}
}

__DATA__
How/WRB1 hot/JJ1 is/VBZ1 the core/NP1 of/IN1 the earth/NP2 ?/
##</code><code>##

C:\test>perl -c 210275.pl
Operator or semicolon missing before %questionlookup at 210275.pl line 38.
Ambiguous use of % resolved as operator % at 210275.pl line 38.
Bareword "qkeys" not allowed while "strict subs" in use at 210275.pl line 38.
Bareword "questionlookup" not allowed while "strict subs" in use at 210275.pl line 38.
210275.pl had compilation errors.

C:\test>perl -c 210275.pl
210275.pl syntax OK

C:\test>210275
How/WRB1 hot/JJ1 is/VBZ1 the core/NP1 of/IN1 the earth/NP2 ?/



 the core is (so) hot

 the core of the earth is (really) hot

C:\test>