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