format  Declare a picture format for use by the "write" function. For
            example:

                format Something =
                    Test: @<<<<<<<< @||||| @>>>>>
                          $str,     $%,    '$' . int($num)
                .

                $str = "widget";
                $num = $cost/$quantity;
                $~ = 'Something';
                write;

            See perlform for many details and examples.