$ perl -pi -e's/^TOM\b.*\n//' userlist.txt
$