c:\@Work\Perl\monks>perl -wMstrict -le
"my $look_for = qr{ (?<! [[:alpha:]]) home (?! [[:alpha:]]) }xms;
 ;;
 my $row = 'social_going_home';
 my $match = my ($capture) = $row =~ m{ (?<= _) $look_for \z }xmsg;
 ;;
 if ($match) {
   print qq{match, captured '$capture'};
   }
"
match, captured 'home'