Select Code to Download

[tye]    gah, some kind of new-age meeting format.
[Tanktalus]    Tanktalus is trying to imagine a meeting room full of l
+ong-haired people wearing braids, smoking marijuana, and listening to
+ Zamphyr...
[RonW]    That's the "old" "new age"
[Tanktalus]    Tanktalus can't keep up :)

sub mapxml {
    my $xml = shift;
    my ($tag, $value, %xmlhash);
...
    }
    return \%xmlhash;
}

use Test::Simple tests => 2;

...
  chomp $answer;
  return($answer);
}

use strict;
use warnings;
...
  my $i=0; my $j = length($key);
  return join '', map {$_^substr($key,$i++ % $j,1)} (split '',$plain);
}