Hi All,

The below code will extract List Name and associated Group Name(starts with X).

<code>

#!/usr/bin/perl

use strict;

use warnings;

# open for reading

my $CSD_file = "CSD.txt";

open FD, "<", $CSD_file

or die "Unable to open '$CSD_file' for reading because $!";

# open for writing

my $RES_file = "RES.txt";

open NW, ">", $RES_file

or die "Unable to open '$RES_file' for writing because $!";

my %data;

{

local $/ = ''; # read in paragraph modes, in chunks

while (<FD>) { # read a chunk

if (/(LIST NAME:\s+(.+)LIST)/) {

$data{$2} = $1;

}

elsif (/(GROUP NAME:\s+X(\w+)/) {

print NW $data{$2}, "\n";

print NW "$1\n";

my $trans = <FD>; # read next 'chunk'

print NW $trans;

} } }

close FD or die $!;

close NW or die $!;

I am trying to extract "Group Name" which has 4 to 8 charcters/digit. This Group Name is combinaion of charcters/digits.

Ex:XCT09L1,XPCPHL2, XDX12DN1

How can I achieve this in above code snippet