for my $j(1,2){ if(exists($triplets{"MetaTag_$i\_$j"})) { $triplets{"MetaTag_$i\_$j"} =~ s/^description=/Summary: /gi; $triplets{"MetaTag_$i\_$j"} =~ s/^posted=/Posted: /gi; print <$triplets{"MetaTag_$i\_$j"}
END_OF_HTML } } # Display summary (document snippet) if there is one for my $j(1){ if (!exists($triplets{"MetaTag_$i\_$j"})) { print <Summary:$triplets{"Summary_$i"}
END_OF_HTML } }