Select Code to Download

#!/usr/bin/perl
use strict;
...
my @line = extract_bracketed( $text, '<>');

print Dumper(\@line);

$VAR1 = [
          undef,
          'A line with B<bold>, I<italic>, and B<I<bold and italic>> t
+ext.',
          undef
        ];