#!/usr/bin/perl -w

if ("abc" =~ /(\w+)/, 1) { print "abc => $1\n" }
{ 
  print "local: $1\n";
  if ("ghi" =~ /\w+/, 1) { print "ghi => $1\n" }
  if ("def" =~ /(\w+)/, 1) { print "def => $1\n" }
  if ("[=]" =~ /(\w+)/, 1) { print "[=] => $1\n" }
}
print "general: $1\n";

__END__
abc => abc
local: abc
Use of uninitialized value at regexes line 6.
ghi => 
def => def
[=] => def
general: abc