$q =~ s/.*$a//s;