C:\Users\ken\tmp>assoc | find /i "perl"
.pl=Perl_program_file

C:\Users\ken\tmp>ftype | find /i "Perl_program_file"

C:\Users\ken\tmp>