perl while循环遍历变量。

这个小片段来自LWP perl oreilly书籍的第一章。 这条线

$count++ while $catalog =~ m/Perl/gi; 

使我困惑

我不明白while语句是如何遍历$catalog变量中的行来查找匹配的，我甚至不知道如何用英语解释该行的功能，更不用说perl了

#!/usr/bin/perl -w
use strict ;
use LWP::Simple ;
my $catalog = get("http://www.oreilly.com/catalog");
my $count = 0;
$count++ while $catalog =~ m/Perl/gi;
print "$count\n";

所以我试着把它写出来，但没有用

#!/usr/bin/perl -w
use strict ;
use LWP::Simple ;
my $catalog = get("http://www.oreilly.com/catalog");


open( my $fh_catalog ,"<" , $catalog) || die "cant open $!";
while (<$fh_catalog>) {
    print $_ ;
    sleep 1;
}

#/usr/bin/perl-w
严格使用；
使用LWP：：Simple；
我的$catalog=get（“http://www.oreilly.com/catalog");
打开（我的$fh_目录，"
$catalog
包含字符串
$catalog
包含字符串
谢谢Ikegami-我知道全局意味着搜索整个文档，但不理解它是如何全局搜索的。观看模拟版本打印是最酷的。谢谢Ikegami-我知道全局意味着搜索整个文档，但没有了解它是如何进行全球搜索的。观看模拟版本的打印是最酷的。
#!/usr/bin/perl -w
use strict ;
use LWP::Simple ;
my $catalog = get("http://www.oreilly.com/catalog");

while (<$catalog>) {
    print $_ ;
    sleep 1;
}

use Time::HiRes qw( sleep );  # Support sleeping fractions of seconds.
$| = 1;  # Turn off STDOUT's output buffering.
for my $i (0..length($content)-1) {
   print(substr($content, $i, 1));
   sleep 0.1;
}

my $s = "a000a000a000";
++$count while $s =~ /a/g;