#!/usr/bin/perl -p
BEGIN{*ARGV=DATA,$,=$"x($=>>1^6).$/}s;\w;
substr$,,index($_,$&),1,$&;eg&&($_=!($.^5)?$,:$+)
__END__ Sine on the dotted line.  :)
| st        /P        er
|u  \      r  e      k  
J----a----e----r----c---
|     n  h      l  a    
|      ot        \h