String Perl

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