Lines Matching refs:newy
96 my ($newx, $newy, $newz) = $ARGV[1] =~ /^(\d+)\.(\d+)\.(\d+)$/
116 sub { $2, "$1$newy$3" },
128 sub { $2, ($newy % 2) ? "$1$newz$3" : "${1}0$3" },
134 sub { $2, ($newy % 2) ? "$1$newx.$newy.$newz$3": "$1$newx.$newy.0$3" },
140 sub { "$2-$4", "$1$newy$3$newz$5" },
146 sub { $2, "$1$newy$3"},
156 sub { $2, ($newy % 2) ? "$1$newz$3" : "${1}0$3" },
162 sub { $1, "perl-$newx^.$newy^.$newz"},
167 sub { $1, ($newx . '_' . $newy . '_' . $newz)},
173 sub {"", "$newx.$newy.$newz"},
180 sub {"", sprintf "%d.%03d%03d", $newx, $newy, $newz },
187 sub {$2, "$1perl$newx$newy$3" },