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