#!/usr/bin/perl

$text = "<!--begin-->this is a line of text<!--end--><!--begin-->another one<!--end-->";

@lines = $text =~ /<\!--begin-->(.*?)<\!--end-->/g;
foreach (@lines) {
  print $_ . "\n";
}