1. my( @list )= spilt '' => $var; this trims whitespace automatically. check perlfunc for more on split

2. $var =~ m/ 
     \A    ## beginning of string
     \d{2} ## two digit characters
   /x
   [download]

   see perlre and perlretut for more on regular expressions.

~Particle *accelerates*