open( my $in,'<:via(QuotedPrint)','file.qp' )
or die "Can't open file.qp for reading: $!\n";
open( my $out,'>:via(QuotedPrint)','file.qp' )
or die "Can't open file.qp for writing: $!\n";
This module implements a PerlIO layer that works on files encoded in the
quoted-printable format. It will decode from quoted-printable while reading
from a handle, and it will encode as quoted-printable while writing to a handle.
Copyright (c) 2002-2003 Elizabeth Mattijsen. All rights reserved. This
library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.