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

my $String      = 'Kuckst Du hier';
my $RegExString = 's/(Kuckst)( Du )(hier)/$3$2$1/';

$_ =  $String;
if ( eval $RegExString ) {
    $String = $_;
    print $String;
}