diff --git a/misc/probe2trace.pl b/misc/probe2trace.pl
index 6c773165..5f7cf81a 100755
--- a/misc/probe2trace.pl
+++ b/misc/probe2trace.pl
@@ -11,7 +11,7 @@
 GetOptions("arch=s" => \$arch)
     or die "invalid command option\n";
 
-
+$arch =~ s/\r$//; # remove excess \r on WSL
 
 # read file and build list of probes being [[probe_name0, [[arg0_name, arg0_type], [arg1_name, arg1_type], ...], [probe_name2, ...
 my @probes = do {