if(投稿文字列=~/^[0-9]+$/)
{
  TPO処理...
}

でもいいんじゃないかね？