my $TagStart = "tag start.*swfm l . info";
my $TagStop  = "tag stop";
...
insert() if ($curnt =~ /$TagStart/i);
...
last if ($curnt =~ /$TagStop/i);