knoppix@Microknoppix:~$ perl -E '
> $_ = qq{aabb\nwxy935TXB\n123};
> say $1 if m{(?x) ( a [^a] (?s) .* 9 (?-s) .* ) };'
abb
wxy935TXB
knoppix@Microknoppix:~$