#!/usr/bin/perl

sub'_{ $_[ 0]=~s *_* *g&&$_[0]}$\=",";sub'__{$_[0]=~m *$/$/$/*;eval
"sub'".$1.$2."{'".$3."'}";\&{"$1$2"}}$/=q*(\w)*;map{$#{$_}?$#{$_}++
&& __$ _:'' ;$#.=&{__$_}}qw*TAJ YOu hIs yet _2_ Spa zEn Tao NOt ugh
sue her _1_ VIP the far Url _0_ hah aha sIc aCk Ace fur* ;print _$#