$_ = 'FREQ=WEEKLY;BYDAY=TU,TH;UNTIL=20110429T000000;WKST=SU';

my %attrs;
for (split /;/) {
   my ($k,$v) = split /=/;
   $attrs{$k} = $v;
}

my @days = split /,/, $attrs{BYDAY};