#!/usr/bin/perl
$_ = "the quick brown fox jumps over the lazy dog.";
$mstr = "python";
s/( ?)[a-z]+/\1${mstr}/g;
$i = length($_);
$_ = "the quick brown fox jumps over the lazy dog.";
$mstr = "perl";
s/( ?)[a-z]+/\1${mstr}/g;
$i1 = length($_);
unless ($i1 > $i) {
    print "Python is greater or equal to perl.\n";
}