#!/usr/bin/perl -wl

    $/ = \1;

    open FILE, "file" or die "Error message here: $!";

    while (<FILE>) {
        print;
    }