while(<INFILE>){
    if (match string to move){
        @to_move = push $1
    }else
        @regular_order push $1
    }
}

while(@to_move){
    unshift @regular_order, $to_move[last]
}