#!/usr/bin/perl

use strict;
use warnings;

my $string = "Dies ist ein Test";
my $foo    = (split / /, $string)[2];