Writing this is enough:

if ($attributes[0] =~m/^DI/i){
[download]

See perldoc perlref:

 i   Do case-insensitive pattern matching.
 ^   Match the beginning of the line
[download]