sub explode {
    my($s) = @_; $s =~ /./gs;
}
sub implode {
    join "", @_;
}