#!perl -p
$:=!s/./$:=$&if$&gt$:/ge