#!/usr/bin/perl
use strict;

$_='
$_=\'
$_=\\\'
X;;H;x;X;
;P;x;X;;A;x
;X;;Y;x;X;s+.
*;$1;xs;\\\';!;
X;\ns;;tr(){p[in}
;txi}\';!:{:;:;!:]:
:;!:):l:;;!:t:e:;
!:r:v:;;!:(:a:;
!:[:r:;!:}:t:
;;;eval;';
tr/!/y/;
eval;
$_
[download]

In teamwork with physi