my $row = 'We_need_feed';
my ($last) = $row =~ /[^_]*$/g;
print $last;