my $line = 'Practical extraction and report language';
my $what = substr $line, 10, 21; # extraction and report