Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my @array = split /\./, $string;
    my $fixed = join('\.',@array);
    print $fixed;
    
  2. or download this