my $oo = 'oop';
my $oop = <<"POOP";

I like to say p$oo
Hello $oo

POOP

print $oop
__END__

I like to say poop
Hello oop