print "First:\n";
print "$_\n" for grep { /[^\s]/ } param("Data_One");

print "Second:\n";
print "$_\n" for grep { /[^\s]/ } param("Second_Part");