format Something = 
        Test: @<<<<<<<< @||||| @>>>>>
              $str,     $%,    '$' . int($num)
    .
    $str = "widget";
    $num = $cost/$quantiy;
    $~ = 'Something';
    write;
See the perlform manpage for many details and examples.