print "Hello! I'm ready to start. Today I'll help you to find all the numbers in this text. Please, print the text you would like me to work with: \n";
$text=<>;
chomp ($text);
$i=0;
@word=split(' ',$text);
foreach $word (@word) {
	if ($word =~/\d{4}/) {
		print "$& \n";
		$i++;
	}
	
}
if ($i==0) {print "Sorry, there are no numbers in this text."};