lots of command-line utility ways to do this, too (bash syntax used below):

find ~/MyPerl/dir* -name '*.output' -exec mv '{}' ~/MyPerl/result \;

for n in `seq 1 50`; do mv ~/MyPerl/dir$n/*.output ~/MyPerl/result/; d
+one

for f in `find ~/MyPerl/dir* | grep 'output$'`; do mv $f ~/MyPerl/resu
+lt/; done
[download]

Update: Bah. I overthought and missed the obvious one Smylers just posted: mv ~/MyPerl/dir*/*.output ~/MyPerl/result (must have had the File::Find suggestions stuck in my head)