#Sample data, multiline
$line = "<!-- Begin -->Line one\nLine two\nthree\nfour<!-- End -->";

#process them
$line =~ s/<!-- Begin -->(.*)<!-- End -->/$1/s;
print $line;