my $string = "This is the test string.";
my $word;
( $word, $string ) = $string =~ m/^(\w+)\b(.*)/;