$s=$"x($l=2+length($q=<>));$u='_'x$l;$p="|$s|\n"x($l/5);print" $u\n/$s\\\n$p| $q |\n$p\\$u/"