#! /usr/bin/perl
use warnings;
use strict;

while (<DATA>) {
    print;
}

__DATA__
<perl programming1234>
"23rd June 2016"
#Thursday, 11:05am#
<perl programming5678> problem encountered