@foobar = qw('This=that', 'Mine=Yours', 'We=Them');
print map { /(?:.*)_(.*)/; $1 } @foobar;