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