gypark

export PERLBREW_BASHRC_VERSION=0.41

[[ -z "$PERLBREW_ROOT" ]] && export PERLBREW_ROOT="$HOME/perl5/perlbrew"
[[ -z "$PERLBREW_HOME" ]] && export PERLBREW_HOME="$HOME/.perlbrew"

if [[ ! -n "$PERLBREW_SKIP_INIT" ]]; then
    if [[ -f "$PERLBREW_HOME/init" ]]; then
        . "$PERLBREW_HOME/init"
    fi
fi

gypark

sub split_string {
    my ($str, $length) = @_;

    my $chars = decode( $HttpCharset, $str );
    my $first = substr( $chars, 0, $length );
    my $last  = substr( $chars, $length );

    return ( encode( $HttpCharset, $first ), encode( $HttpCharset, $last ) );
}