Perl Cheat Sheet

#!/usr/bin/perluse strict;use warnings;my $age = 30;my $name = "Ada";my $pi = 3.14159;if ($age >= 18) {    print "$name is an adult\n";}for (my $i = 0; $i < 5; $i++) {    print "Count: $i\n";}

my $text = "Contact: ada@example.com";if ($text =~ /(\w+)@(\w+)\.(\w+)/) {    print "User: $1, Domain: $2.$3\n";}(my $clean = $text) =~ s/[^a-zA-Z ]//g;   # substitutionmy @words = split /\s+/, $text;            # split on whitespacemy $joined = join(", ", @words);

my @nums = (5, 3, 1, 4, 2);my @sorted = sort { $a <=> $b } @nums;   # numeric sortmy %ages = (Alice => 30, Bob => 25);$ages{Carol} = 28;for my $key (keys %ages) {    print "$key is $ages{$key}\n";}