#!/usr/bin/perl

$runDir = $ENV{"REGR_RUN_DIR"};
@files = (<*.txt>);

foreach $FILE (@files)
{
open (IN, $FILE) || die "Couldn't open $FILE for reading";
open (OUT, ">$runDir/$FILE") || die "Couldn't open $FILE for reading";

while(<IN>) {
    print OUT $_;
}
}
close(IN);
close(OUT);