{
     # do something to get perl 
     # to treat '\' as an ordinary character
     # so that one may write:

     my $foo  =  "Ignore the \slash, expand $boo.";
  }