my $string = "Here is our test string.";
my $word;
( $word, $string ) = split /^(\w+)\b/, $string, 2;