Select Code to Download

 $ perl -Mstrict -wE 'my $str = "mary had a little lamb"; say for ($st
+r =~ /(\S+)/g)[0..2]'