You may try to
use Text::Balanced; # and
use Regexp::Common qw/balanced/;