my $firstLine = '||03/15/2012||10:17:11|FOR TEST'; 
print $1 if $firstLine =~ /(\d{2}\/\d{2}\/\d{4})/; 
