$;='aq';$^X=~m;.+[/\\]([^\.]+);;`$1doc $1f$;1`=~m;th\.(.{17});m;print$1,$/