#! /usr/bin/perl

my @values = (8,0,0,0,65,80,76,45,71,109,98,72,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);

my $ssid = '';

for my $val(@values){
  $ssid .= chr($val) if($val > 31 && $val < 127);
}

print $ssid,"\n";