use Regexp::Common;
use Regexp::Common::balanced;

$str=~s#\\caption($RE{balanced}{-begin=>"{"}{-end=>"}"}{-keep})#<caption>$1</caption>#sgi;