Select Code to Download

# This works fine
$a = "abc";
...
# "Use of uninitialized value in concatenation (.)
$b = "c";
$b =~ s/^(?:a(\w))?(\w)$/$1:$2/;

$b =~ s/^a?(\w?)(\w)$/$1:$2/; # no warning here.