perl -ne 'print unless /^User/ .. /^->\d/' file > file.new