print "<textarea>$song&lt;/textarea>";
                      ^^^