Multi-lingual Websites (with XML) - The Code (Whitespace Supression)

  use Data::Phrasebook; 
   
  my $q = Data::Phrasebook->new(); 
  $q->load( 
              loader => 'XML', 
              file   => { 
                          file => 'phrases.xml', 
                          suppress_whitespace => 1, 
              }, 
              dict   => 'Welsh' 
  ); 

  # $value =~ s/^\s+//;   # trim leading spaces 
  # $value =~ s/\s+$//;   # trim trailing spaces
  # $value =~ s/\s+/ /gs; # collapse multiple spaces 
  • Also ignore_newlines