Select Code to Download

#!/usr/bin/perl
$,=open(O,$0)?$":$;;for(join$\=$/
,<O>){~~~s{(\w+)}{$$1=$1}ge}print
$just, $another, $Perl, $workshop

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}