(C {<perl>} {<-pi>} {<-e>} {(SQ <'s/\\s+$/\\n/'>)} {($ Id.VSub_Star '$*')})