use v5.10;   # or higher
...

##</code><code>##

use feature qw(say);
...

##</code><code>##

$_ = 'My name is Paquito';
CORE::say if /My name is/;

s/Paquito/Paquita/;

tr/A-Z/a-z/;
CORE::say;

##</code><code>##

Bareword "say" not allowed while "strict subs" in use at ./say.pl line xyz.