#!/usr/bin/perl -w

$_ = "fooooooooooooooood";
print "before substitution: $_\n";

  s/o+/oo/;
print "after  substitution: $_\n";