Select Code to Download

my $query = undef;
if ($query =~ /^(([\w\d\-\_]+)[:,]|)(.*)$/) {
...

C:\>perl -v
This is perl, v5.8.4 built for MSWin32-x86-multi-thread

C:\>perl -le"print 1 if undef =~ //"
1
...
C:\>perl -le"print 1 if undef =~ /blahblah|/"
1