Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Capitalize all sentences
#!usr/bin/perl
use strict;
use warnings;
my $string1 = "lets see. This is a test";
capitalize( $string1 );
sub capitalize
{
   my $string = shift();
   print "$string\n";
   $string =~ s/(([.!?]|\A)\s*)([a-z])/$1\u$3/g;
   print "$string\n";
}