$batman=~s/\&//g;
print "Fly";
print "";
sub marine{$paint="ffff00"}
while($u){sleep}
sub seattle{while(1==2){sleep}}
$i="ffd700";
sub mummy{return}
$shark{$colour}="0000ff";
my $love;undef $love;
splice(my @best,$friend);
$man[2];
@man=qw(grumpy sore indignant huffish bitter aggravated wrathful vexed ireful enraged furious cross);