$/ = undef;#set input record seperator to null[default \n]

open("FIN","<raja.txt") or die "cant open :$!\n";
$content = <FIN>; #Whole file content in a single scalar variable
close(FIN);

foreach $line (split /\n/ ,$content) {
	print $line;
}