Try an anonymous sub:

my $variable = 3;

my $string = sub {"Variable: $variable\n"}; # Simplified from your cod
+e
print $string->();
#results in "Variable: 3"

$variable = 4;
print $string->();
# Prints: Variable: 4
[download]