Mit substr können wir auf Teile eines Strings zurückgreifen. Hier der Syntax dazu.....

$string = substr(STRING, Offset[,len]);  

Damit wir unser STRING ab der Position Offset ausgegeben. len ist Optional und bedeutet falls es verwendet wird : STRING wird ab der Position Offset bis len ausgegeben. Genug der Theorie. Hier ein paar Beispiele....................

#!/usr/bin/perl -w

$string1 = "Perl ist toll";
$string2 = "Perl macht Spass";

print substr($string1, 9) , " ";        #toll
print substr($string1,5,3) , " ";       #ist
print substr($string1, -13, 4), "\n";  #Perl

print $string2 , " und " , substr($string1, 5) , "\n";
#Perl macht Spass und ist toll

substr($string1, 9, 9) = "Supertoll";
#ersetzt toll durch Supertoll
print $string1 , "\n";

An diesem Beispiel können sie sehen das es auch Möglich ist die Offsets negativ anzugeben. Somit wird ab der letzten Position rückwärts gezählt.