Select Code to Download

my ($session_id, $last_action_date, $last_action_time) = split /-/, $s
+ession;

0 1 2 3 4 5 6 7 8 9

# split:
my @fields = split /-/, $session;
...
$session =~ /^(\d{2})-(\d{4}-\d{2}-\d{2})-(\d\d:\d\d:\d\d)$/
    or die "Weird timestamp in >>$session<<"
my ($session_id,$last_action_date,$last_action_time) = ($1,$2,$3);