Select Code to Download

my $str = "  foo bar baz  ";
my @spl = split $str;
print "@spl";

while ( <DATA> ) {
   split;
   #do something interesting;
}