#!/usr/local/bin/perl

@text = <STDIN>;
$line = join("", @text);
write;

format STDOUT =
******************************************
~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$line
******************************************
.
