I don't feel any problem in the given peise of code. This is what I got by running it.

0 out of 4 - c:\win32app\toolkit - regexp value : 
1 out of 4 - c:\win32 - regexp value : 
2 out of 4 - C:\WINNT\system32 - regexp value : 
3 out of 4 - d:\perl - regexp value : 
4 out of 4 - d:\brossad - regexp value : 

Tool completed successfully

Error might be due to some other codes - SB.