Searching file names recursively using regex

This perl program searches the current working directory recursively for file names matching the regex supplied by user and prints the results.