C:\>perl -e "$, .= qq[\x00hjap]; print $,;"
 mult
C:\>perl -e "$. .= qq[\x00hjap]; print $. ;"
 hjap
C:\>perl -e "$; .= qq[\x00hjap]; print $; ;"
  hjap