#!/usr/bin/perl -w use strict; open (FILE, "input.txt"); while () { print "\n!!!!!PARAGRAPH!!!!!\n", $_; } #### dstgs dahfgvsd kjghkls djgklsdjgl ksdjglk;j sdkl;ghsd jkljg lkds;j glk;dsjglk; sdjgkldsjgl ;ksdjgkl;d sjglk;s djgkjdskgjdsjg lkdsjglk;sdjg l;ksdjglkd sjglkdsjlg sd glsd dstgs dahfgvsd kjghkls djgklsdjgl ksdjglk;j sdkl;ghsd jkljg lkds;j glk;dsjglk; sdjgkldsjgl ;ksdjgkl;d sjglk;s djgkjdskgjdsjg lkdsjglk;sdjg l;ksdjglkd sjglkdsjlg sd glsd dstgs dahfgvsd kjghkls djgklsdjgl ksdjglk;j sdkl;ghsd jkljg lkds;j glk;dsjglk; sdjgkldsjgl ;ksdjgkl;d sjglk;s djgkjdskgjdsjg lkdsjglk;sdjg l;ksdjglkd sjglkdsjlg sd glsd