#!/usr/bin/perl $a = "hi"; $b = "hello"; $c = $a . $b; print "c = $c\n"; # prints "c = hihello" $c = uc($a); print "uc($a) = $c\n"; # prints "uc(hi) = HI" $c = $a x 5; print "$a x 5 = $c\n"; # prints "hi x 5 = hihihihihi"