Split

#!/usr/bin/perl

$str="one last challenge";

@words = split(/ +/, $str);


print($words[0] ."\n");


print($words[1] ."\n");