#!/usr/bin/perl -p
BEGIN{*ARGV=DATA,$,=$"x($=>>1^6).$/}$;=$#_;s|.|++$;;
$&=~/\w/&&substr($,,$;,1,$&)|eg;($_=!($.^5)?$,:$+)
__END__ You're good, but I still hope to come in secant.
| s    o  e    r  h    r
Ju      th      l/      
+-----------------------
|   /a      /P      ck  
|  t  n    r  e    a  e