wanted: perl script

[Basilisk]

I should probably review Perl and do this myself, but I would be grateful for some help on a Perl script. The pseudo code that I need Perl for looks like:

filecopier( path /aaaa/)

constant file f = "/bbbb/dddd.e"
constant *char g ="cccc"

for each file
parse file name: get word after first "." but before rest
if this word is "x" then
parse file name: get string before first "." = y
parse file name: get string after second "." = z
cp f "/aaaa/y.g.z"
for each sub folder
filecopier (/aaaa/sub/)
if last file, return