Why don't you use a regex to capture the relevant parts of the string?

perl -e "$f=q|Tue Sep 13, 2005  10:38|; $f=~s/\&nb
+sp;/ /g; if($f=~m/\S+\s+(\S+)\s+(\d+),\s+(\d+)\s+(\d+):(\d+)/){print 
+$1 . $2 . $3 . $4 . $5;};"
Sep1320051038
[download]

You can push them into an array or whatever and do what you want with it then.