Select Code to Download

my $greekReplace = "alpha|beta|chi|delta|epsilon|eta|gamma|hbar|kappa|
+lambda|mu|nu|omega|phi|pi|psi|rho|sigma|tau|theta";
my $string = '3*mu';
$string =~ s/($greekReplace)/\\$1 /isg;

#!/usr/bin/perl

...
    print $string2 eq $strings{$string}->{valid} ? "Passes\n" : "FAILS
+\n";
}
print "\n";