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