modifier1 is 5 for Perl