fork download
copy 
  1. my $string = 'this is a string of text'; 
  2. $string =~ s/\b(\w+)\b/ucfirst($1)/ge; 
  3. print "$string\n";
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
===SORRY!===
Unsupported use of =~ to do pattern matching; in Perl 6 please use ~~ at line 2, near " s/\\b(\\w+)"
stdout
copy 
Standard output is empty
https://ideone.com/k45GO
language:
Perl (perl 2018.12)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!