#READ input A, B, C, D;
	my $INPUT_DATA = $_;
	if (defined($INPUT_DATA) && ($INPUT_DATA =~ /INPUT (.*)/)) 
	{   
	my $input_data = $1;
	my @input_array = split /,/, $1;
	my $size_input = @input_array;
	print "Input = ";  
	print scalar "@input_array\n"; 
	print "Number of input = $size_input\n"; 
	}