#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11153644
use warnings;
$SIG{__WARN__} = sub { die @_ };

my $cat = { dog => 'golden retriever' };

my $x='$cat->{dog}/mouse';
my $y=localtime();
$_=$x;
my $z = "$_:$y";
my $z2 = eval qq("$_:$y");

print "$z\n";
print "$z2\n";