$firstword = split(/^\s+/, $string);

print $firstword;