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