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

##</code><code>##

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