#! /usr/local/bin/perl

# This is an example of string repition

$string1 = "noel";

$string2 = $string1 x 3; #repeat the string three times and assign it

print "$string2\n";

    Source: geocities.com/siliconvalley/vista/6493/perl/code

               ( geocities.com/siliconvalley/vista/6493/perl)                   ( geocities.com/siliconvalley/vista/6493)                   ( geocities.com/siliconvalley/vista)                   ( geocities.com/siliconvalley)