#!/usr/bin/perl

while(<DATA>){
print $_;
}

__DATA__
Hi  & How r u
&quot; How r u &amp; dear &quot;