Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
$string .= '.';

print $string;

Select or download this

$string = join '. ',map {ucfirst} (split(/\. /,lc($string)));
$string = join '? ',map {ucfirst} (split(/\? /,lc($string)));
$string = join '! ',map {ucfirst} (split(/\! /,lc($string)));
$string =~ s/\bi\b/I/g;
$string .= '.';