diff --git a/modules/compiler_vm/compiler_vm_client.pl b/modules/compiler_vm/compiler_vm_client.pl
index 75624dab..c94f0d01 100755
--- a/modules/compiler_vm/compiler_vm_client.pl
+++ b/modules/compiler_vm/compiler_vm_client.pl
@@ -17,13 +17,7 @@ eval {
   my @languages = glob 'languages/*.pm';
   my $comma = '';
   print "Supported languages are: ";
-  foreach my $lang (sort @languages) {
-    $lang = basename($lang);
-    next if $lang =~ m/^_|~$/g;
-    $lang =~ s/\.pm$//;
-    print "$comma$lang";
-    $comma = ', ';
-  }
+  print join(", ", grep { $_ = basename $_; $_ =~ s/.pm$//; $_ !~ m/^_/ } sort @languages);
   print "\n";
 
   exit;