Select Code to Download

$line = '@{ $blah{ foo } } = ( 100 .. 104 , 105 , 106 .. 123 );';
$line =~ s/^[^=]+=//;
@list = eval $line;