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

my $String = 'Kuckst Du hier';
my $Suchen = '(Kuckst)( Du )(hier)';
my $Ersetzen = '$3$2$1';


my $RE = "s~$Suchen~$Ersetzen~";

print "RE    : '$RE'\n";
print "String: '$String'\n";

$_ = $String;
eval $RE;
$String = $_;

print "String: '$String'\n";