use strict;
$::PUNISHMENT = 'q[print"I will not throw paper airplanes in class.\n";]';
$::PUNISHMENT =~ s{.*}{q(q[{local$_=).$&.q(.qq[{chop}$/=).$_.q(];{eval&&redo}}])}e for qw(CHALK ONTO BLACK BOARD); 
s!!$::PUNISHMENT!eee;