#!/usr/bin/perl -w

    use strict;

    my $str1 = "Knee";
    my $str2 = 1;
    my $str3 = "Would it get some wind for the sailboat. " .
               "And it could get for it is. " .
               "It could get the railroad for these workers. " .
               "And it could be were it is.";


    format STDOUT =
    @<<<<<   @<<<<<<<<   ^<<<<<<<<<<<<<<<<<<<<<<<<<<
    $str1,   $str2,      $str3
                         ^<<<<<<<<<<<<<<<<<<<<<<<<<<~~
                         $str3
    .

    write();

    __END__
    Prints:

    Knee     1           Would it get some wind for
                         the sailboat. And it could
                         get for it is. It could get
                         the railroad for these
                         workers. And it could be
                         were it is.