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