use warnings;
use strict;

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

s/Paquito/Paquita/;

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

##</code><code>##

Bareword "say" not allowed while "strict subs" in use at it.pl line 5.
Bareword "say" not allowed while "strict subs" in use at it.pl line 10.
Execution of it.pl aborted due to compilation errors.

##</code><code>##

use warnings;
use strict;
use feature 'say';

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

s/Paquito/Paquita/;

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

##</code><code>##

My name is Paquito
my name is paquita

##</code><code>##

use warnings;
use strict;

$_ = 'My name is Paquito';
print "$_\n" if /My name is/;

s/Paquito/Paquita/;

tr/A-Z/a-z/;

print "$_\n";