phaylon@gaia:~ # perl -Mwarnings -Mstrict
my $a = 12;
my $b = "test ${\($a - 9)} foobar\n";
print $b;^D
test 3 foobar
phaylon@gaia:~ #