or download this
c:\@Work\Perl\monks>echo Bleach='^(GUI_|AA_|myMainScript)'
'AA_' is not recognized as an internal or external command,
...
c:\@Work\Perl\monks>perl -le "print qq{>>$ARGV[0]<<};" "Bleach='^(GUI
+_|AA_|myMainScript)'"
>>Bleach='^(GUI_|AA_|myMainScript)'<<