use strict;
   s//<>5:@/;y/'-|/[-|/;
 $;='#)!/';$;=~y/ -|/`-|/;
    s//"$_ '$;'"/ee;