Select Code to Download

expensive_function($str_a , $str_b) unless ($letter eq substr $str_b,0
+,1);

expensive_function($str_a , $_)
    unless ($letter eq substr $_,0,1)
        for @list;