Select Code to Download

sub reform {
  my $line = shift;
  my @toret;
...

  return join("",@toret);
}

adrade@antigone:~$ perl -e 'print ucfirst("il"),"\n"'
Il
...
Hello
adrade@antigone:~$ perl -e 'use ref; print reform("Mrs"),"\n"'
Mrs.