Untested:

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

Update: added /s flag to handle strings with newlines. (The OP might never notice, I can't msg him.)