14 lines
212 B
Perl
14 lines
212 B
Perl
|
format STDOUT =
|
||
|
|
@<<<<<<<<<<<@<<<<<<<<<<<<<<<
|
||
|
|
$text1 $text2
|
||
|
|
@<<<<<<<<<<<@<<<<<<<<<<<<<<<
|
||
|
|
$text3 $text4
|
||
|
|
.
|
||
|
|
|
||
|
|
$text1 = "Hello";
|
||
|
|
$text2 = "there!";
|
||
|
|
$text3 = "How're";
|
||
|
|
$text4 = "things?";
|
||
|
|
|
||
|
|
write;
|