1s/perl/wxPerl/ w