Help for this page

Select Code to Download


  1. or download this
    $_ = 'abc';
print /(.)/g ? $1 : '[]', "\n";  # a
...
print /(.)/g ? $1 : '[]', "\n";  # c
print /(.)/g ? $1 : '[]', "\n";  # []
print /(.)/g ? $1 : '[]', "\n";  # a
  2. or download this
    $_ = 'abc';
print /(.)/ ? $1 : '[]', "\n";  # a
...
print /(.)/ ? $1 : '[]', "\n";  # a
print /(.)/ ? $1 : '[]', "\n";  # a
print /(.)/ ? $1 : '[]', "\n";  # a