#!/usr/local/bin/perl
use 5.010;
my $sex = 'male';
$_ = 'My sex is $sex.';
s/(\$\w+)/$1/ee;
say;