#!/usr/local/bin/perl
use 5.010;
use strict;
use warnings;

$_ = ''; s//$_=q{"\$_=q{$_}"}/sex; say;
$_ = ''; s//$_=q{"\$_=q{$_}"}/sexsex; say;
$_ = ''; s//$_=q{"\$_=q{$_}"}/sexsexsex; say;
$_ = ''; s//$_=q{"\$_=q{$_}"}/sexsexsexsex; say;