#!perl -pl
$_=substr/c/?meow:woof,0,/c/?$c:$d+=1