# perl -wl
$,=$";
print +(split " ","this is a string")[-1,1],"good";
__END__
string is good