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

my $file='/etc/hosts';
my $tmpmainvillage='Entenhausen';

my @list;

open(my $fh, '<', $file) or die "Error open $file ($!)\n";
while(my $line=<$fh>)
{ push(@list,$line) if($line=~m/#village $tmpmainvillage/); }
close($fh);

print join("\n",@list)."\n";