print$\;     # cause of last warning

#replacements
print$/;
print"\n";
print qq'\n';
   #etc.