Select Code to Download

my $text = '  <bold>, I<italic>, and B<I<bold and italic>> text.';

$VAR1 = [
          '<bold>',
          ', I<italic>, and B<I<bold and italic>> text.',
          '  '
        ];

my @line = extract_bracketed($text, '<>', qr(.*?(?=<)));

$VAR1 = [
          '<bold>',
          ', I<italic>, and B<I<bold and italic>> text.',
          'A line with B'
        ];