fix find in perl