use strict;
use warnings;

my $firstName = 'PATRICK';
my $lastName  = 'STERL';

my $fileNamePart = "$firstName$lastName" =~ s/^(.).+(...)$/\L$1$2/r;

warn qq{Be careful: "$fileNamePart" may be an obscene word.};