A couple of tricks might be helpful with your application.

• Instead of using a system call, use unlink
• $filename and $nfile: $nfile = "_$filename" perhaps?
• Don't permanently mangle your variables for a temporary use, like you did when processing your date: my $date = sprintf ("%04d%02d%02d", $year+1900, $m+1, $d)
• Strip out any variables that are no longer used, such as the apparently orphaned $complete.
• if($asci =~ /$asci/) translates to "If this matches itself", which is an unreliable way to say "if (1)". Remember that '.' and '*', among other things, are different in regular expressions.
• As chromatic pointed out, you can test for a file using the '-e' function instead of reading the directory table. Used something like: if (-e $file)
• Rember that if statements must have braces, unless the if comes after the statement (i.e. $x = 1 if ($foo);). You are using a C-style if here and it will not work as you expect, if at all.

As a general note, your code is highly cluttered and confusing, which is going to make it hard to maintain. Some effort spent organizing and reducing it would probably help appreciably.

---

---

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.