my $firstLine = '||03/15/2012||10:17:11|FOR TEST'; print $1 if $firstLine =~ /(\d{2}\/\d{2}\/\d{4})/;
Standard input is empty
03/15/2012
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!