$html =~ s{(<body.*?)>}{$1 onLoad="window.print()">}is;