Perl - 从输入字符串中获取第一个“单词”

ChatGPT的回答仅作参考：

在Perl中，可以使用正则表达式来获取第一个“单词”。以下是一个示例代码：

```perl
my $input = "Hello world! This is a test.";

if ($input =~ /^(\w+)/) {
    my $first_word = $1;
    print "The first word is: $first_word\n";
} else {
    print "No word found in the input.\n";
}
```

在这个例子中，我们首先定义了一个输入字符串 `$input`。然后，我们使用正则表达式 `/^(\w+)/` 来匹配输入字符串中的第一个“单词”。这个正则表达式的含义是：从字符串的开头（`^`）开始匹配一个或多个字母、数字或下划线字符（`\w+`），并将匹配结果保存在捕获组中（`()`）。

如果匹配成功，我们就可以通过 `$1` 来获取捕获组中的匹配结果，即第一个“单词”。最后，我们将这个单词打印出来。

如果输入字符串中没有匹配到任何“单词”，则正则表达式的匹配结果为假，我们就可以输出一个提示信息。