Select Code to Download

  
$_ = "I saw Barney with Fred";
s/(fred|barney)/\U$1/gi;

my $x = join ":", 4, 6, 8, 10, 12;