diff --git a/swig/perl/t/EnumVal.t b/swig/perl/t/EnumVal.t
index accc4546630aeeb0a75ae5e96a8af1da6ba2f818..d280b3606e4f1313571a45b43405b786b17198b8 100644
--- a/swig/perl/t/EnumVal.t
+++ b/swig/perl/t/EnumVal.t
@@ -23,12 +23,12 @@ use strict;
 XML::Xerces::XMLPlatformUtils::Initialize();
 
 my $perl = $Config{startperl};
-$perl =~ s/^\#!//;
+$perl =~ s/^\#!//;
 my $output;
-if ($^O eq 'MSWin32') {
-  $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>NUL`;
-} else {
-  $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>/dev/null`;
+if ($^O eq 'MSWin32') {
+  $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>NUL`;
+} else {
+  $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>/dev/null`;
 }
 
 my @lines = split("\n", $output);