Help for this page

Select Code to Download

Select or download this

my $pattern_file = <STDIN>;
chomp $pattern_file;
...
        last;
    }
}