#!/usr/bin/perl
# A little perl and some preshuss raahks.          # 1
@jems = qw(roobie pints phulsgold perl);           # 2
splice(@jems,1,2, ("liters","mycahh","nikkle"));   # 3
@jems[1,3] = ("quarrts","dimeundd");               # 4
$str = "Jems are @jems.\n";                        # 5
print $str;                                        # 6
$str =~ s/\b(\w+(\w)\2\w*)\b/jem/g;                # 7
print '$str is ' . $str;                           # 8
print "Last but not least: $jems[-1]\n";           # 9
@heavies = qw(gold mercury thallium lead);         #10
%change = (gold=>'silver', mercury=>'perl',        #11
           thallium=>'bismuth', lead=>'have');     #12
foreach (@heavies) {                               #13
    print;                                         #14
    if (/l/) { print ": solid\n"; } else           #15
    { print ": liquid\n"; }                        #16
    $element .= $_ . "|";                          #17
}                                                  #18
chop($element);                                    #19
print '$element = ' . $element . "\n";             #20
$_="May the goldfish lead a mercury-free life.\n"; #21
s/($element)/$change{$1}/g;                        #22
print;                                             #23