hw.perl print "hello world\n"; simp.perl simp.perl print "Jim\n"; simp.perl print 1.55 . "\n"; simp.perl print "Jim" . " " . "Plank" . "\n"; simp.perl print (("5" + 6) . "\n"); simp.perl scalar.perl scalar.perl $i = 1; scalar.perl $j = "2"; scalar.perl print "$i\n"; scalar.perl print "$j\n"; scalar.perl $k = $i + $j; scalar.perl print "$k\n"; scalar.perl print $i . $j . "\n"; scalar.perl print '$k\n'. "\n"; scalar.perl stdin.perl while ($k = ) { print $k; } catinput.perl open(F, "input"); catinput.perl open(FOUT, ">output"); catinput.perl while ($k = ) { catinput.perl chop($k); catinput.perl print FOUT "$k\n"; catinput.perl } sort1.perl $i = 0; sort1.perl while ($l = ) { $a[$i++] = $l; } sort1.perl print sort(@a); sort2.perl print sort(); reverse.perl while ($l = ) { push(@a, $l); } reverse.perl while ($oldval = pop(@a)) { print $oldval; } revline.perl while($l = ) { revline.perl @a = split(/\s+/, $l); revline.perl $s = ""; revline.perl for ($i = @a; $i > 0; $i--) { $s = "$s$a[$i-1] "; } revline.perl chop($s); revline.perl print "$s\n"; revline.perl } reverse2.perl print reverse(); revline2.perl while($l = ) { revline2.perl $s = ""; revline2.perl foreach $i (reverse(split(/\s+/, $l))) { $s = "$s$i "; } revline2.perl chop($s); revline2.perl print "$s\n"; revline2.perl } phone.perl while ($l = ) { phone.perl @a = split(/\s+/, $l); phone.perl $fn{$a[1]} = $a[0]; phone.perl $pn{$a[1]} = $a[2]; phone.perl } phone.perl phone.perl foreach $i (sort(keys(%fn))) { phone.perl printf "%10s, %10s, %30s\n", $i, $fn{$i}, $pn{$i}; phone.perl } ls.perl foreach $i (<*.perl>) { print "$i\n"; } match.perl $i = "Jim"; match.perl $j = "JjJjJjJj"; match.perl $k = "Boom Boom, out go the lights!"; match.perl match.perl $m = $i =~ /Jim/; print "$m\n"; match.perl $m = $i =~ /J/; print "$m\n"; match.perl $m = $i =~ /j/; print "$m\n"; match.perl $m = $i =~ /j/i; print "$m\n"; match.perl $m = $i =~ /\w/; print "$m\n"; match.perl $m = $i =~ /\W/; print "$m\n"; match.perl match.perl $m = $j =~ /j*/; print "$m\n"; match.perl $m = $j =~ /j+/; print "$m\n"; match.perl $m = $j =~ /j?/; print "$m\n"; match.perl $m = $j =~ /j{2}/; print "$m\n"; match.perl $m = $j =~ /j{2}/i; print "$m\n"; match.perl $m = $j =~ /(Jj)+/; print "$m\n"; match.perl match.perl $m = $k =~ /Jim|Boom/; print "$m\n"; match.perl $m = $k =~ /(Boom){2}/; print "$m\n"; match.perl $m = $k =~ /(Boom ){2}/; print "$m\n"; match.perl $m = $k =~ /(Boom\W){2}/; print "$m\n"; match.perl $m = $k =~ /\bBoom\b/; print "$m\n"; match.perl $m = $k =~ /\bBoom.*the\b/; print "$m\n"; match.perl $m = $k =~ /\Bgo\B/; print "$m\n"; match.perl $m = $k =~ /\Bgh\B/; print "$m\n"; match.perl sub1.perl $j = "Jim Plank"; sub1.perl sub1.perl $j =~ s/ .*/i Hendrix/; sub1.perl print "$j\n"; sub1.perl sub1.perl $j =~ s/i/I/g; sub1.perl print "$j\n"; sub1.perl sub1.perl $j =~ s/\b\w*\b/Dikembe/; sub1.perl print "$j\n"; sub1.perl sub1.perl $j =~ s/(\b\w*\b)/Jimi "\1"/; sub1.perl print "$j\n"; sub1.perl sub1.perl sub2.perl $j = "Jim Plank"; sub2.perl $j =~ s/(\w*) (\w*)/\1 \1 \2/; sub2.perl print "$j\n"; sub2.perl sub2.perl $i = "I am the the man"; sub2.perl $i =~ s/(\b\w+\b) \1/\1/; sub2.perl print "$i\n"; strings.perl print "This is a demonstration of \"double quotes\" and \\ (backslashes)\n"; strings.perl print "\lThis is about \LCHANGING CASE\E \Uof text\E inside \udouble quotes\n"; strings.perl print "\QAnd this is the \"backslash-quote\" option; which is wierd.\n";