Perl中的while-continue循环

#!/usr/bin/perl

my $temp_file = "tmp.$$";#后缀是进城ID

open (TMP,"> $temp_file") or die("die:$!");
open (INPUT,"< megaliths.dat") or die("die:$!");

while (my $line = <INPUT>) {
    #在continue中是undef
    my $while = "above";

    #根据预设的正则进行过滤，以缩小进一步修改的范围
    next unless $line =~ /\Q$some_pattern/;#\Q把特殊的正则元字符一般化
    $line .= " append";
}
continue{
    #即使在next语句后，continue仍然执行
    print TMP "In continue $line\n";
    print "[$while]\n";
}

close(TMP);
close(INPUT);