Search Results

# use_sanjeev_g.file.pl
use strict;
use warnings;

my $last_name = '';
my $writeout;
while(<>) {
if (/^#(\w+)#(.+)$/) {
if ($last_name ne $1) {
close $writeout if...