Aprašo spausdinimo formatą write funkcijai:

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

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

Pavyzdžių, detalesnės informacijos galima rasti perlform.