#!/usr/local/bin/perl
use strict;
use warnings;

my $contents =<<EOT;

####################
# GEOGRAPHY CONFIG #
####################

environment.type = eu
deployment.type = au

EOT
 
#------------------------------------------------------------------------------
# Check that the properties deployment.type and environment.type exist
#------------------------------------------------------------------------------
 
if ( $contents !~ /deployment.type/gm )
{
    print "ERROR: deployment.type not found in contents\n";
}
else
{
    print "deployment.type matched\n";
}
if ( $contents !~ /environment.type/gm )
{
    print "ERROR: environment.type not found in contents\n";
}
else
{
    print "environment.type matched\n";
}

##</code><code>##

C:\test>perl test.pl
deployment.type matched
ERROR: environment.type not found in contents