$q=~s#[.\n]*$a##;