#!/bin/bash
N="$1" ; Z="$2" ; shift 2
[ -n "$Z" ] || . usage "date zone [opt ...]"
date -d "`echo "$N" | perl -ne '
	chomp;
	s/\D//g;
	BEGIN { @c=qw(4 / 2 / 2 _ 2 : 2 : 2 .) }
	@a=@c;
	$c = -1;
	while(@a) {
		($n, $s) = splice @a,0,2;
		$c += 1 + $n;
		last if $c >= length($_);
		$_ = substr($_,0,$c).$s.substr($_,$c);
#		warn "$n $c $s $_\n";
	}
	s/_/ /g;
	print "$_\n";
'` $Z" "$@"