my $pi = "3.1415";
my $substr = substr $pi, 0, 4;
print "\substring: ".$substr."\n"; # $substr: 1.14