$ perltidy 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!); ^D 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!);