open (my $fh, '<', '<insertfilepath>') or die "Open failed : $!";
undef($/);
while (<$fh>) {