#!/usr/bin/perl -w

while(<DATA>){
    @array = split '/';
    print $array[0],$/;
}

__DATA__
C:\Documents and Settings\Claire\Desktop\ /LOG:fgf /L /XF doc /W:3 /R:10 /COPY:dtao /FP

##</code><code>##

C:\Documents and Settings\Claire\Desktop\