Select Code to Download

substr($string, index($string, '<tag>'), rindex($string, '</tag>')) =~
+ s/\n(?!$)/<br>/g;

substr($string, index($string, '<tag>'), rindex($string, '</tag>') - i
+ndex($string, '<tag>')) =~ s/\n/<br>/g;

my $st = index($string, '<tag>');
my $en = rindex($string, '</tag>') - $st;

substr($string, $st, $en) =~ s/\n/<br>/g;