print!<>+grep$p=/$p/&&"^$_\$",glob<>