#! \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!);"