#! /usr/local/bin/perl
# Perl 5.002 対応:-)

# 与えられた文字列を car/cdr に分割する
# このスクリプトは単独では実行できません。注意。

sub car_cdr {
  local($buf) = @_;

  if($buf =~ /^[ -~]/) {
    local($za, $zb) = ( $& , $' );
    return ( $za , $zb );
  }

  local(@ta) = split(//,$buf);
  local($ts, $ia);
  $ia = unpack("c",$ta[0]);
  #print "ta[0]: $ta[0] / $ta[1] , val: $ia\n";
  # jperl 5.002 の日本語対応機能は百害あって一理なし:-(
  # 結局 perl で自前で日本語対応せねばならぬとは:-( :-(
  if($ia < 0) {
    $ts = join('', $ta[0], $ta[1]); undef $ta[1];
  } else {
    $ts = $ta[0];
  }
  undef $ta[0];

  return($ts, join('', @ta));
}