#!/usr/bin/perl
my $s='Das ist ein kleiner txt, aus dem ich mir raus suche, um etwas zu testen';
my @l=$s=~/s\s+(\w+)/gs;
print join('; ', @l)."\n";