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