#!/usr/bin/env perl
use strict;

# @2-21, pag #73

$a="o";
print $a.":"; print "\n";
print $a x 5; print "\n";

$a .= ":";
print "Cadeneta construida: ", $a x= 5, "\n";
print "Cadeneta guardada: ", $a, "\n";