Help for this page

Select Code to Download


  1. or download this
    >perl -MO=Concise -e"substr($x,0,1)=''"
9  <@> leave[1 ref] vKP/REFC ->(end)
...
5           <$> const[IV 0] s ->6
6           <$> const[IV 1] s ->7
-e syntax OK
  2. or download this
    substr($x,0,1) =~ s/(.)/uc $1/e;