($first, $second, $third, $fourth) = qw/This is a test/; print $first; print $second; print $third; print $fourth;