Where language is a barrier, you really need to show code, use proper formatting, and demonstrate input data, as well as expected output data. A well composed question often doesn't require much command of the language. Providing us with some examples lends the clarity needed for you to obtain a useful answer.

Sorry, your message was hard to understand.

According to perldoc -f chomp, this function just removes $/ from the end of the scalar or from all elements of a list, but you want to append something to something.

How do you parse your line1 and line2? What do you want to append? Where do you want to append it?

_{EDIT: formatting, questions, links}

Hello suno, and welcome to the Monastery!

As other monks have said, your question isn’t clear. The following is a guess at what you wanted:

#! perl
use strict;
use warnings;

my @lines    = ("First line\n",
                "Second line\n",
                "Third line\n",
                "Fourth line\n",
                "Fifth line\n",);
my @keywords = qw(Second Fourth);
my @matches;

for (my $i = 0; $i < $#lines; ++$i)
{
    my ($first_word) = $lines[$i] =~ /^\s*(\w+)\b/;

    for (@keywords)
    {
        if ($_ eq $first_word)                  # Look for a keyword
        {
            chomp(my $line1 = $lines[$i    ]);  # *see below
            chomp(my $line2 = $lines[$i + 1]);  # *see below
            push @matches, $line1 . $line2;
            last;
        }
    }
}

my $count;
print 'Match ', ++$count, ": '$_'\n" foreach @matches;
[download]

Output:

Match 1: 'Second lineThird line'
Match 2: 'Fourth lineFifth line'
[download]

The key lines of code are the ones marked *see below. By applying chomp to a newly-created variable, the code removes the newline (if any) from the end of a copy of each line of text, without changing the original lines in the array.

HTH,

hi, thanks you so much for the reply.. i am sorry that my question is not clear to all... my actual objective is as follows: say my input is :

MVC   DOWO(8),WCPA   
                    
CLI   WCPA+2,C'.'  
                      
BNE   UPCC22
[download]

the required output is something like :

MVC   DOWO(8),WCPA  
                     
CLI   WCPA+2,C'.' BNE   UPCC22
[download]

hope this will make my question clear...

Here.. MVC,CLI,BNE are keywords... wherever CLI comes, i need to append the next line along with the current line..

Hello suno,

Being novice in Perl myself, I've spent most of the time to understand hashes, lists and arrays. If you have some knowledge of some older programming language (e.g. C like me) you could easily end up in mixing things up (for example lists and arrays)...

From your question I understand that you don't get next iteration on your array. If that is the case, you really need to read a bit more on Perl. Robert's Perl tutorial is a perfect place to start. http://www.sthomas.net/roberts-perl-tutorial.htm

Happy Perl-ing !