my ($days) = /BYDAY=([A-Z]+(?:,[A-Z]+)*);/;
my @days = split(/,/, $days);

##</code><code>##

my @days = split(/,/, ( /BYDAY=([A-Z]+(?:,[A-Z]+)*);/ )[0]);

##</code><code>##

$_ = '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};