Assign $~ to format
format standardformat = @|||||||||||||||||||||||||| $text . $text = "Hello!"; $~ = standardformat; write;