use strict;
while ( <DATA> ) {
    do {print "\n"; next} if /Product:/;
    my $firstword=(split " ")[0];
	print "$firstword ";
}


__DATA__
Product:
redball This is for Mike.
greenball This is for Dave.
Product:
smallbox This is for apples
bigbox This is for orange