$t = 'abcd';
$t =~ s/bc|xy/pq/;
print "$t\n";

==> apqd