use Text::Balanced qw( extract_tagged );
# The rest of your code from above here.

##</code><code>##

use Text::Balanced;

my $text = 'sometexthere';

($extracted, $remainder) = Text::Balanced::extract_tagged($text);