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