title: How to decode &deg; to degree ASCII character in perl
body: <p>I have tried using :</p>
  
  <pre><code>my $nomIHMBloc = $1;
  print decode_entities($nomIHMBloc), "\n";
  $nomIHMBloc = decode_entities($nomIHMBloc), "\n";
  </code></pre>
  
  <p>but no luck. Is there any thing wrong? I got error: </p>
  
  <pre><code>Undefined subroutine &amp;main::decode_entities called at "same perl file"
  </code></pre>
  
  <p>Thanks for your help.</p>
  
  <p>PS:
  exact code goes here:</p>
  
  <pre><code>    while($blocVars =~ m/\[(.*?)\]/g){
                  binmode STDOUT, ':utf8';
                  my $nomIHMBloc = $1;
                  print decode_entities($nomIHMBloc), "\n";
                  $nomIHMBloc = decode_entities($nomIHMBloc);
                  print "nomIHMBloc::::::::$nomIHMBloc=============$1\n";
                  print "insert into ASSOC_VAR_BLOC (ID_BLOC, ID_VAR, DOC_ID_MAQUETTAGE) VALUES ($id_bloc, (SELECT ID_VAR FROM VARIABLE WHERE NOM_IHM='$nomIHMBloc'),'$docId')\n";
      }
  </code></pre>