Select Code to Download

use PDL; 
use PDL::Char;                                                        
+          
...
  my @diff=($match!=$source)->list;                                   
+     
  print "@diff\n";                                                    
+          
}