$S=<>;for$i(1..10){push@S,substr$S,$_,$i for 0..length($S)-1-$i}
<>;
/.*/,$\+=grep$&eq$_,@S for<>;
print