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

no warnings 'void';
$_ = ''; s/.*/$_.=q{"\$_.=q{$_};";}/sex; say;
$_ = ''; s/.*/$_.=q{"\$_.=q{$_};";}/sexsex; say;
$_ = ''; s/.*/$_.=q{"\$_.=q{$_};";}/sexsexsex; say;
$_ = ''; s/.*/$_.=q{"\$_.=q{$_};";}/sexsexsexsex; say;