String Perl

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