$/ = undef;

   open "FIN", "<raja.txt" or die "cant open :$!";
   my @fin = split/\n/,<FIN>;
   close FIN;

   print "|$_|\n" for @fin;

##</code><code>##

   ...
   my @fin = grep {$_} split /\n/, <FIN>;