use strict;
use warnings;
my $row = 'We_need_feed';
my($first_word, $last_word) = $row =~ /^(\w+)_.*_(\w+)$/;
print $first_word, ' ',  $last_word;