Perl obter os primeiros caracteres

perl obter os primeiros caracteres

# For Perl (language) only

# syntax
substr(<your-string>,0,<characters-to-extract>)

# example 
substr("Cool, isn't it!",0,4)

# application
my $sRandom = "Cool, isn't it!";
my $s1stFewChars = substr($sRandom,0,4);
print "[ sRandom : '$sRandom' ] \n[ s1stFewChars : '$s1stFewChars' ]" . "\n";