Select Code to Download

#! \usr\bin\perl

...

"my $fs = q!.\funkisym.pm!;open(FUNKISYM, q(>),qq($fs)); my $flashbang
+ = q{#! \usr\bin\perl};my $pra = q!use strict;!; my $pra2 = q!use war
+nings;!;my @fstr = (q(format  FUNKISYM = ),q(@).q(<) x 16,q($flashban
+g).qq(\n),q(@).q(<) x 11,q($pra),q(@).q(<) x 13,q($pra2),qq(.\n));eva
+l(join($/,@fstr));select FUNKISYM;write;exec(qq!notepad\.exe $fs!);"

perl -n -i.bak -e "tr/;/\n/;" .\funkisym.pm
perl -n -i.bak -e "y/\Q;\E/\n/;" .\funkisym.pm
perl -n -i.bak -e "s/(;)/$1\n/g;" .\funkisym.pm

perl -ni.bak -e "my @text = split(q{;});print join(qq(;$/), @text);" .
+\funkisym.pm"