my $msg=q~
this_msg_size:
blablabla
blabla
~;

my $size=length($msg);
$size+=length($size);
$msg=~s/(this_msg_size:)/$1$size/s;