undef $/;             # Enables whole file mode
open (FH, $filename); # Opens the file 
while(<FH>) {         # Contains the whole file
  blah
}