while(<OUTPUT>)
{
	$\="$\$_";
	$_=$\;
	$\ = substr((push @w,$\),0,0) if $\=~ /\s$/msg;
}