Hi , I need a perl script using I can copy a versioned file (using extended path) to a directory . the simple copy command here does not working. here the versioned files

K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\1
K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\2
K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\3

I want these files copy and stored outside the view to a directory.like the first versionned file must store in folder name 1,second file in folder 2,3rd file in 3. Is it possible to do with a perl script.

Please give any suggestion.Many thanks in advance