String Perl

format STDOUT =
@||||||||||||||||||||||||||
sprintf "%.4f", 3.1415
.
write;