my $todayDate = qx(date); my ( $day, $month, $dayNum ) = split ' ', $todayDate; print "the day will be $day\n"; print "the month will be $month\n"; print "the day num will be $dayNum\n"; __END__ the day will be Tue the month will be Nov the day num will be 10