Search Results

Got Perl?

#!/usr/bin/perl
use strict;
use warnings;

my $sep = $/ = "== :: ==\n";
my $pattern = "Permanent";
my $hat = 0;

while(<>) {
if(/$pattern/){
print $sep if $hat == 0...