Select Code to Download

@collect = split( / /, 'This is a sentence.' );
( $word1, $word2, $word3, $word4 ) = @collect;
print join( q[ ; ], ( $word1, $word2, $word3, $word4 );