# DynInterp.pm
package DynInterp;
use overload '""' => 'stringify';

sub new {
    my $class = shift;
    bless [@_], $class;
}

sub stringify {
    my $this = shift;
    return join('', map { ref($_)eq'SCALAR'?$$_:ref($_)eq'ARRAY'?"@{$_
+}":$_ } @$this);
}
1;
[download]

# ---------------------
# dyninterp.pl
#!/usr/bin/perl -l 
use DynInterp;
$x = new DynInterp('the value of $y is ', \$y, '.'); 
$z = new DynInterp('the value of $y is ', \@y, '.'); 
$y=5;
print $x; 
$y=8; 
print $x;
@y = qw(a b c d);
print $z;
$"=',';
print $z;
$"='.';
print $z;
[download]

$var = new DynInterp('date ', \$date);
$date = localtime;
print $var;
[download]

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc
[download]