$ perl -Mstrict -Mwarnings -E '
    say do { local $/; <> } =~ /(.*)\Z/m;
' pm_1027453.dat
line3