@Files =( "filename=merilyn14.jpg.jpeg", "filename=...)

$file = "filename=merilyn14.jpg.jpeg"
[download]

mmmh... That seems a strange way to me to call a file, a source of potential troubles with your script in the future, "filename=merilyn14.jpg.jpeg" is not a file, nor even a filename, I will fix this if I were you.

$file = "merilyn14.jpg.jpeg"

more questions

print "FoxyM New fold = $nFold file = $nFile\n";

Maybe you will prefer this, probably less ambiguous and more readable, form...

print "FoxyM New fold = ", $nFold, " file = ",$nFile, "\n";

And

foreach my $file (@Files)
      {
          if ($file =~ m/filename=(\d.*?)([a-zA-Z].*?)\.j/i)
[download]

... same as:

foreach my $file (@Files)
      {
          if (/^filename=(\d.*?)([a-zA-Z].*?)\.j/)
[download]

Don't need to use /i in the match if you are using also a-zA-Z

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.