String interpolation
#!C:\Perl\Bin\ $something = "comfort"; print "This chair is very ${something}able\n";