encoding...

Question 1.

In this script I would like for convenience' sake to use variables in 
the second line, but I don't seem to be able to do so.  Am I missing 
something or is is simply not possible?

$source = 'MacRoman';  # I want to use this in the next line
use encoding qw(  MacRoman  ), STDOUT => qw(  utf-8 ) ;
$text = "café" ;
print $text ;


Question 2

Is there a way, without using q(), to single-quote a block of text as 
one can double-quote it this way:
$text = <<EOT;
$ome$tuff
$ome$tuff
$ome$tuff
EOT
#

I want to be able to quote a block of JIS-encoded stuff (which 
contains lots of $)