#!/usr/bin/perl

use strict;
use warnings;

my $str = "printmeprinthi";

$str =~ s/printme(.*)$/`$1`/e;

print $str,$/;

##</code><code>##

#!/bin/sh
echo hi

##</code><code>##

hi