while (<$pdf_name>){
            $pdf .= $_;
        }

##</code><code>##

$pdf = do {local($/) ; <$pdf_name> };