open (BOX, "<", "U:/documents/mpcrequeststack.txt");

my $can = '';

my $case = '';

while ($can = <BOX>) {
    $can = <BOX>;
    $case .= $can;
    if ($can =~ /^<\/ACCESS_REQUEST>/) {

        my (@stamp) = gettimeofday();
        my $stamp = join '.', @stamp;
        open CLIP, ">", "\\\\server\\share\\dbgroom\\$stamp.xml" or die $!;
        print "$case\n";
        close CLIP;
        $case = '';
    }
}