#!/usr/bin/perl -w
# $Id: bench_regexp_replace,v 1.2 2003/09/19 18:52:26 mrodrigu Exp $
use strict;
use simple_benchmark; # to get memory size
use Getopt::Long;

my( $in_file);
GetOptions( 'in_file=s' =>\$in_file); 
$in_file ||= 'test.xml';

open(FILE, "<$in_file") or die "cannot open $in_file: $!";
my $xml = join('', <FILE>);

my $message_nb;

$xml =~ s{(<message[^>]*>)([^<]*</message>)}
         { $message_nb++;
					 $1 . "[message $message_nb] " . $2
         }ge;

print $xml;