my $q='qqqweqwe
asdasdasd
zxczxczxc
tyutyutyi
';
my $a='zxczxczxc';

##</code><code>##

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