my $line = 'Practical extraction and report language';
my $part = substr $line, 10;