Mega Code Archive

 

Categories / Perl / Report

 

Writes a string using the multiline field format

#!/usr/local/bin/perl  @input = <STDIN>;  $string = join("", @input);  $~ = "MULTILINE";  write;  format MULTILINE =  ****** contents of the input file: ******  @*  $string  *****************************************  .