--- /dev/null
+#! /usr/bin/perl
+
+use strict;
+
+my $print = 0;
+my $line;
+
+while($line=<STDIN>) {
+ chomp $line;
+ if($line=~/IMG/) {$print=1;}
+ if($print) {print $line."\n";}
+ if($line=~/\/MAP/) {$print=0;}
+}
+#perl -pe 's/imagemap/simgrid_modules/g'| perl -pe 's/<IMG/<IMG style=border:0px/g'