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

my $String      = 'Kuckst Du hier';

$_ =  $String;
my $r = q/"$3$2$1"/;
if ( s/(Kuckst)( Du )(hier)/$r/ee ) {
    $String = $_;
    print $String;
}