use strict;
use warnings;
my %imlre = ('RE1' => ['RE1', 'body', 'measure', 'remove'], 'RE2' => [
+'RE2', 'jcode', '', 'remove']);
my $input = 'front matter comes herebodymatter co
+mes hereback matter';
for (keys %imlre)
{
if ($imlre{$_}->[3] =~ /^remove$/i)
{
$input =~ s/<$imlre{$_}->[1] [^>]*>//xg ; #here getting error
#$input =~ s/<$imlre{$_}->[1]([^>]*)>//g ; #here no error
}
}
print $input;