$String = 'Kuckst Du hier';
$Suchen = qr'(Kuckst)( Du )(hier)';
if($String =~ s/$Suchen/$3$2$1/)
{
 print "$String";
}
_ _ END _ _
hier Du Kuckst