use warnings;
use strict;

my $str='qqqweqwe
asdasdasd
zxczxczxc
tyutyutyi
';
my $find='zxczxczxc';
$str=~s#\A.*\Q$find\E##s;

print "<<$str>>\n";

__END__

<<
tyutyutyi
>>