$_ = 'abc';
print /(.)/ ? $1 : '[]', "\n";  # a
print /(.)/ ? $1 : '[]', "\n";  # a
print /(.)/ ? $1 : '[]', "\n";  # a
print /(.)/ ? $1 : '[]', "\n";  # a
print /(.)/ ? $1 : '[]', "\n";  # a