Shell Programming and Scripting

<listener>
<listener-class>com.pkg1.class1</listener-class>
</listener>
.........
<listener>
<listener-class>com.pkg1.class2</listener-class>
</listener>
............

awk '/com.pkg1.class2/' RS="</listener>\n" ORS="</listener>\n" file
.........
<listener>
<listener-class>com.pkg1.class2</listener-class>
</listener>

#!/usr/bin/perl -w

use strict;
use Tie::File;
my $i;
my @array;
my $file = "./test.xml";
tie @array, 'Tie::File', $file or die;

for($i=0;$i<$#array;$i++) {
   if($array[$i] =~ /<listener-class>com\.pkg1\.class2<\/listener-class>/) {
      $array[$i] = '<!'.$array[$i].'-->';
      $array[$i-1] = '<!'.$array[$i-1].'-->';
      $array[$i+1] = '<!'.$array[$i+1].'-->';
   }
}

untie @array;