language: Perl (perl 5.16.2)
date: 426 days 5 hours ago
link:
visibility: private 
1
2
3

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