#!/usr/bin/perl

use strict;
use warnings;

($,,$",$_,@_)=reverse qw(164 163 165 112),",\n",split '','\ ';

my $music='Art';
my($swing,$rock)=q
s/hacker/performer/; # another creator of art...
my $blues=~/^.(\w+).*#\s(\w+)/;
my $jazz=substr((grep m($music)=>qx($^X$,-v))[$[],$?,scalar @_);
my $pop=eval qq("\\@_");

print $pop, $rock, $jazz, $swing;
print;
[download]