Readonly my $ESC_BACKSLASH => q{\\};
Readonly my $NEWLINE => q{\n};
$wholefile =~ s/$ESC_BACKSLASH\z//o;