use strict; 
use warnings;

my $string = 'hello world'; 
print substr($string,'0',5)."\n";

##</code><code>##

sh-3.2$ perl absurd2.pl
hello