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

$_ = ''; s//42/sex; say;
$_ = ''; s//42/sexsex; say;
$_ = ''; s//42/sexsexsex; say;
$_ = ''; s//42/sexsexsexsex; say;