Report Perl

$pi = 3.1415926;
format STDOUT =
@.## @.#######
$pi   $pi
.
write;