#!C:\Perl\Bin\ $stringa = "Jupiter is a planet"; $substring = substr($stringa, 0, 7); print "$substring \n\n";