#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my $string = 'skontox will regex lernen';
$string =~ /^(\w+)\s\w+\s(\w+)/;
print "Wer will lernen?\n";
print "$1\n";
print "Und was?\n";
print "$2\n";