my $var = 'Dies ist ein Test!';
my $test = substr($var,13,4);
print $test; # Ausgabe: Test