http://www.perlmonks.org?node_id=556371


in reply to A Question on assigning variables from a big variable

I suppose the line is:
my ($session_id, $last_action_date, $last_action_time) = $session =~ /
+^(\d\d)-(\d{10})-(\d{8})$/;

[download]

In Section Seekers of Perl Wisdom