$ perl -wle '$, = " | "; print qw( "Hallo Welt");'
"Hallo | Welt"

 $ perl -wle '$, = " | "; print qw( "Hallo\ Welt");'
"Hallo\ | Welt"