my $trade_dt=UnixDate($x=~/([\/\d]+)/,qq|%Y-%m-%d|);