eval"H,W="+gets.split*?,
s=$<.read
a=s[0,W]
a[?*]?a[/\*.*\*/]?s[W+1]=?*:s.sub!(?-,?*):s[H/2]=?*
$><<s