#!/usr/local/bin/perl $string = "Here\nis a line of\ntext.\n"; $~ = "OUTLINE"; write; format OUTLINE = @* $string .