Help for this page

Select Code to Download

Select or download this
@names = qw(user_name house_name street_address phone_number date_of_birth);

Select or download this

foreach $name ( @names ){
  $name = ucfirst($name); # made first letter 
  $name =~ s/\_(\w)/\ uc($1)/g; # Here is the point.
  print "$name \n"; 
}