Report Perl

format STDOUT =
English: ^<<<<<
       $text
German: ^<<<<<<<<<
       $text
French: ^<<<<<<<<
       $text
.
$text = "Hello!Guten Tag!Bonjour!";