Scanner eval three

add some more test cases and tweak scanner to find

```perl
""use Test::Spelling 0.12; use Pod::Wordlist::hanekomu; 1"",
""use Test::Script 1.05; 1;"",
""use Test::Pod::No404s"",
```