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

my $String      = 'Kuckst Du hier';

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