use warnings;
use strict;
use Path::Tiny 'path';
my $var = \"09";
my $transf = "/3+6";
print eval('$$var'.$transf),"\n";      # prints 9
path('third')->spew('$$var'.$transf);
print do('third'),"\n";                # prints 6