my $str = shift; #the data showed in the above
my $beg = "MSG_ID_CELL_INFO_PRINT";
my $end = "MSG_ID_CELL_CAMP_REQ";
my $key1 = "cellid=";
my $key2 = ";";
while ($str =~ m/$beg.*?$key1(\d+)(.*?)$end(.*?)$key1(\d+)/g) {
 my $info_cell = $2;
 my $camp_cell = $4;
 if ($info_cell ne $camp_cell) {
  my $cell_info = $beg.$1.$key1.$2.$end;
  while ($cell_info =~ m/$beg(.*?)$key2/g) {
  my $print_info = $1;
  print FILEOUT "$beg.$print_info";
  }
 }
}