use Data::Postponed 'postpone_forever';

$a = '';
$str = postpone_forever( "blabla" . $a . "blabla" );
$a = "XXX";
print "$str\n"; # prints blablaXXXblabla