<>=~/c.*w.*w(?{$%-=$-=($%||=100)+"@-"-pos})^/;print$%||-1