#!/usr/bin/perl -w
use strict;
open (FILE, "input.txt");
while (<FILE>)
{
     print "\n!!!!!PARAGRAPH!!!!!\n", $_;
}