Select Code to Download

$ cat t.pl
#!/usr/bin/perl
...
    $len = ord(substr($kablooie_storage,$offset,1));
    return substr($kablooie_storage,$offset+1,$len);
}

$ perl t.pl
joe's first name: Joe
jane's last name: Smith