Perl Mambo

[jkahn]

This tune has been kicking around in my head for a while, so I couldn't resist. This compiles under strict and warnings, and sorta sums up why I like Perl.

#!perl -w
use strict; # really!

do # to the tune of
'Mambo'; #5, apologies to Lou Bega

our (@syntax) = ('syncopated', 'baby');

sub refrain {

  my (%little_bit_of) = ('regex' =~ /(matching) (string)/);
    @ little_bit_of{'shell', 'calls'} = `do_that thing`;

  $little_bit_of{C} = sub { for(@syntax){
      $little_bit_of{sed} =~ s!\\!!g; # "strip backwhacks"
    }
  };

  @ { $little_bit_of{'OO'}->can('be_nice') } =
    @ little_bit_of{'lisp', 'lists'} = map {$_} splice(@_);

  @ little_bit_of{'rich', 'language'} = ('easy', 'puns');
  @ { $little_bit_of{'Perl'} } = ('number' => 1);

  return [instrumental bridge];
}

__END__