open (FILE, "< ipconn.conf") or die $!;
my $file = <FILE>;
close FILE;
if ($file =~ m/\<Location\ \/.+?\<\/Location\>/s)
 print $&;