fix pack() WIP - refactoring

Author: fglock

src/main/java/org/perlonjava/operators/Pack.java

@@ -476,31 +476,6 @@ public static RuntimeScalar pack(RuntimeList args) {
                 if (stringFormat == 'Z' && stringCount < 0) {
                     output.write(0); // null terminator
                 }
-            } else if (format == '@') {
-                // @ is used for absolute positioning
-                // '/' uses the previously packed numeric value as a count for the following string format
-
-                // First, check what follows '/'
-                if (i + 1 >= template.length()) {
-                    throw new PerlCompilerException("Code missing after '/'");
-                }
-
-                i++; // move to next character after '/'
-                char nextChar = template.charAt(i);
-
-                // Check if '/' is followed by a repeat count (which is an error)
-                // This includes '*' or any digit
-                if (nextChar == '*' || Character.isDigit(nextChar)) {
-                    throw new PerlCompilerException("'/' does not take a repeat count");
-                }
-
-                // Check if it's a valid string format
-                if (nextChar != 'a' && nextChar != 'A' && nextChar != 'Z') {
-                    throw new PerlCompilerException("'/' must be followed by a string type");
-                }
-
-                // Now we can continue processing...
-                // (rest of the handler code)
             } else if (format == '@') {
                 // @ is used for absolute positioning
                 // @n means null-fill or truncate to position n