use strict;
use warnings;
use Tie::File;
my $file = "inputfile";
my @array;
tie @array , 'Tie::File', $file ;
my $start = '';
my $end = '';
my $val = 'enabled';
my $replace = $start.$val.$end;
print "replace $replace \n";
for (my $i = 0 ; $i <= $#array ; $i++)
{
#below if block is tried for multiple line pattern but not working
# if ($array[$i] =~ /^/../<^\/default>/)
if($array[$i] =~ /^/) #this is working
{
$array[$i] =~ s/^.*<\/default>/$replace/g;
}
}
untie @array;