#!perl -p
!/d/+$'&($^=$'-1)or$_="$^and x
"