Perl 字符串模式匹配的负正则表达式

使用 Perl 的字符串模式匹配功能，我们可以轻松地进行正则表达式的匹配和操作。不过，除了正则表达式，Perl 还提供了一种强大的负正则表达式的功能，即通过在正则表达式前加上 `^!` 来表示不匹配某个模式。

perl
#!/usr/bin/perl
use strict;
use warnings;
my @sentences = (
    "I love coding.",
    "Perl is a great language.",
    "Regular expressions are powerful.",
    "I hate spiders.",
    "Programming is fun."
);
foreach my $sentence (@sentences) {
    if ($sentence !~ /^!(love|fun)$/) {
        print "$sentence\n";
    }
}

Perl is a great language.
Regular expressions are powerful.
I hate spiders.