i think Kanji has just what you asked for. might i make a few code suggestions?

subtracting one from an array element can be handled with the -- operator. also, when passing array values in a mixed order, i like to take an array slice, to make my code easier to read and make my lines shorter. my replacements are below, with a little more whitespace to make it a bit more clear.

@time_arr = split( /-/, $components[1] );
--$time_arr[1];
$unix_time = timelocal( 0, 0, 0, @time_arr[2,1,0] );
[download]

put that in an eval statement and you're on your way.

~Particle *accelerates*