#!/usr/local/bin/perl

print "what dates do you want?\n";

my $a=<STDIN>;


@b= (split / /, $a);

foreach (@b){

	print "$_\n";

}