c:\@Work\Perl\monks>perl -wMstrict -le
"my $line = '2011-01-01 15:34:554 some words and numbers then email@host.com';
 printf qq{date '%s' time '%s' email '%s' \n}, (split /\s+/, $line)[0, 1, -1];
"
date '2011-01-01' time '15:34:554' email 'email@host.com'