$komunikat = "Do widzenia, Perl!"; 
$a = substr($komunikat, 5, 5); 
// Kopiuje pi znakw poczwszy od indeksu pitego, dajc nam "dzeni". 
$b = substr($komunikat, 5, -1); 
// Kopiuje pi znakw od koca, z wyjtkiem ostatniego znaku, 
// tak wic zmienna $b ma posta "Perl". 
$c = substr($komunikat, 0, -7); 
// Zmienna $c ma posta "Do widz". 