@c=<>=~/./g;for$a(<>=~/./g){/./,print map("($&$a$_)",@c),$/for@c}