Help for this page

Select Code to Download


  1. or download this
    BEGIN {
  *CORE::GLOBAL::ucfirst = sub {
...
$_ = "one  two 'three' four\n";
print "\u$_";
print ucfirst;
  2. or download this
    BEGIN {
  *CORE::GLOBAL::ucfirst = sub {
...
$_ = "one  two 'three' four\n";
print "\u$_";
print ucfirst;