#!/usr/bin/perl -w
use strict;  
use LWP::Simple;
use Encode;

print fetch_room_list();

sub fetch_room_list {
  my $self = shift;
  #my $content = get ('URL');
  my $content =
  '[["PromillePunk","0","1","1","200","2","",""],["BoMbEnLeGeR-Family","0","1","1","200","1","",""],["meck-pomm","700","1","11","83","5","Chatraum f\u00fcr Mecklenburg-Vorpommern.","http://example.org/"],["te\\\\\u00fc\\\\te","0","1","1","200","1","",""]]';

  my @room_list;
  if ($content) {

    $content =~ /\[(.*)\]/;
    my $rooms = $1;
    $rooms = encode('ISO-8859-15', $rooms);
 
    #unicode handling
    my %chars = (
        'Ä' => '\u00C4',                'ä' => '\u00E4',
        'Ü' => '\u00DC',                'ü' => '\u00FC',
        'Ö' => '\u00D6',                'ö' => '\u00F6',
        'ß' => '\u00DF',
    );

    for my $key (keys %chars) {
      $rooms =~ s|(?<!\\)\Q$chars{$key}\E|$key|gi; 
    }

    $rooms =~ s|(\\\\)|\\|g; # get rid of escaped backslahes
    $rooms =~ s|(\\")|"|g; # get rid of escaped "

    #get data for single rooms
    while ($rooms =~ s|\["(.*?)","(.*?)","(.*?)","(.*?)","(.*?)","(.*?)","(.*?)","(.*?)"\]||) {
      push @room_list, [$1, $2, $4, $5, $6, $7, $8];
      print "room: $1\t\t\t";
    }
  }
  else {
    print "Cannot fetch URL.\n”";
  }
  return \@room_list;
}

#!/usr/bin/perl
use strict;
use warnings;

my $str1 = 'This is \\ simple test\n';
print "1) $str1" ."\n";

my $str2; eval '$str2="$str1"';
print "2) $str2" ."\n";