#! \usr\bin\perl

use strict;
use warnings;

"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 warnings;!;my @fstr = (q(format  FUNKISYM = ),q(@).q(<) x 16,q($flashbang).qq(\n),q(@).q(<) x 11,q($pra),q(@).q(<) x 13,q($pra2),qq(.\n));eval(join($/,@fstr));select FUNKISYM;write;exec(qq!notepad\.exe $fs!);" 


##</code><code>##

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

##</code><code>##

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