I tried Text::Balanced the other night, however, the output wasn't useful to me. Here is the code I used...

#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use Text::Balanced qw(extract_bracketed);
use Data::Dumper;

my $text = 'A line with B<bold>, I<italic>, and B<I<bold and italic>> 
+text.';

my @line = extract_bracketed( $text, '<>');

print Dumper(\@line);
[download]

Here is the returned results...

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

Either I did something horribly wrong, or it doesn't extract anything just returns the original string with undefs in an array.