@_ = 
     join "\n", 
     map {/$complicated_regex/} 
     split '', 
     join ',', 
     reverse sort 
     map {lc} 
     map {do_backflips($_)} 
     keys %{ $var->{$something} }
;