Shell Programming and Scripting

use  File::Copy ;

my $newdir = $ENV{$TEMP} ;
my @copylibs = () ;

# escape our seaarch strings that come in a regex
my $copyflag = qq[\Qcheck_geomtools.exe\E] ;
my $copystart = qq[\Q: \E] ;
my $copylib = qq[\Q.lib\E] ;

#  filter first
while (<>) {
  /$copyflag$copystart(.+$copylib)$/ ;
  push @copylibs, $1 if length( $1 );
}

#and copy
copy($_, $newdir) for $_ (@copylibs) ;

use  File::Copy ;

my $newdir = $ENV{'TEMP'} ;
my @copylibs = () ;

# escape our seaarch strings that come in a regex
my $copyflag = qq[\Qcheck_geomtools.exe\E] ;
my $copystart = qq[\Q: \E] ;
my $copylib = qq[\Q.lib\E] ;

#  filter first
while (<>) {
  m/./;
  m/$copyflag$copystart(.+?$copylib)\s*$/ ;
  my $copy = $1 ; 
  push @copylibs, $copy if length( $copy ) and not scalar grep /\Q$copy\E/, @copylibs ;
}

#and copy
warn $_ and (copy ($_, $newdir) or warn 'ERROR while copying')   for  (@copylibs) ;