open(FILE, 'C:\Users\li\perl\animals.txt');  
$/ = " ";
while (<FILE>) {
	if (m/(?=.*((\d)+?))(?=.*((?<=#)(.*?)(?= fin)))/g) {
		print "$1\n";
}
		
}