The problem is that my program does not work. I took you advice and cleaned it as shown below:

#!/usr/local/bin/perl -w


use strict;
use File::Find;
use File::Copy;

my $sourcedirectory = $ARGV[0];
my $targetdirectory = $ARGV[1];

copyfiles();
sub copyfiles()
  {
     #the $sourcedirectory below tells the find where to start
     #looking for files.  The .TXT tells it only to return the files 
     #with the path if the file is a .TXT file. It then uses the copy 
     #of File::Copy to copy the entire path\filename to a SINGLE 
     #directory target.
    find(sub
           {
            copy(({win_path{$File::Find::name$/"if(/\.TXT$/)}",
                "$sourcedirectory"),"$targetdirectory");
           }
        )           
 }
 # ruzam figured out the following line on
 # how to convert the resulting string to MS-DOS complaint format   
sub win_path
{
(my $path = shift) =~  s![\\/]+!\\!g;  return $path; 
}
[download]

But I get the following error during when I try to run it:

Scalar found where operator expected at notworking.pl line 21, near "$
+File::Find
::name$/"
        (Missing operator before $/?)
String found where operator expected at notworking.pl line 21, near "$
+/"if(/\.TX
T$/)}""
        (Missing operator before "if(/\.TXT$/)}"?)
syntax error at notworking.pl line 21, near "$File::Find::name$/"
syntax error at notworking.pl line 23, near ")
"
Illegal declaration of subroutine main::win_path at notworking.pl line
+ 27.
[download]

That stuff in there is still nothing that makes any sense. You're going to need to decide what has to happen and write the code to do it, not just throw in stuff until it stops complaining.

A few hints: the directory to look in should be passed to find(), not copy(). copy() should be passed a filename (presumably returned from win_path) and the target directory. You'll need an if statement around the copy() call to make it only called for .TXT files.

--
Online Fortune Cookie Search
Office Space merchandise

You probably want something like this (UNTESTED)

#!/usr/local/bin/perl
use warnings;
use strict;
use File::Find;
use File::Copy;

@ARGV == 2 or die "Usage: $0 sourcedirectory targetdirectory\n";
my ( $sourcedirectory, $targetdirectory ) = @ARGV;

find sub {
    return unless -f && /\.txt\z/i;
    copy( $_, "$targetdirectory/$_" );
    }, $sourcedirectory;
[download]

use warnings;
use strict;

use File::Find;
use File::Copy;

use autodie qw/File::Copy::copy/;

my $tgt_dir = shift;

find(
    sub {
        return unless -f $_;
        copy($File::Find::name, qq($tgt_dir/$_));
    },
    @ARGV
)
[download]

I suggest to check the return value of copy as well. For example what if the disk is full? From the File::Copy documentation:

BTW Are you sure the the file names are unique across all directories?

Hi i must admit honestly that i dont understand your code completeley. But if i understand your problem right you want to:?

#!/usr/bin/perl
use File::NCopy;
$file = File::NCopy->new(recursive => 1);

$file->copy($dir1, $dir2); # Copy $dir1 to $dir2 recursively

# or if the dir is big and you would rather fork 
# (cd $srcdir; tar cf - *) | (cd $dstdir; tar xf -)

#or even better
#  cd /source/dir
#  find . -print | cpio -pd /dest/dir
[download]