$ ftype |ack perl
PerlScript=perl.exe %1 %*

$ assoc |ack -i perl
.pl=PerlScript